/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / misc / sciapps / !SciGraph / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1d f4 20 3e 3c | 42 65 64 69 74 24 70 61 |..... ><|Bedit$pa|
|00000010| 74 68 3e 2e 21 52 75 6e | 49 6d 61 67 65 0d 00 14 |th>.!Run|Image...|
|00000020| 2b f4 20 52 69 73 63 20 | 4f 53 20 53 63 69 65 6e |+. Risc |OS Scien|
|00000030| 74 69 66 69 63 20 47 72 | 61 70 68 20 50 6c 6f 74 |tific Gr|aph Plot|
|00000040| 74 65 72 20 56 31 2e 37 | 0d 00 1e 0a f2 5f 49 6e |ter V1.7|....._In|
|00000050| 69 74 0d 00 28 0f f2 5f | 54 65 6d 70 6c 61 74 65 |it..(.._|Template|
|00000060| 73 0d 00 32 0e f2 5f 49 | 6e 69 74 56 61 72 73 0d |s..2.._I|nitVars.|
|00000070| 00 3c 18 ee 20 85 20 e7 | 20 a4 77 69 6d 70 65 72 |.<.. . .| .wimper|
|00000080| 72 6f 72 20 8c 20 e0 0d | 00 46 14 f5 3a f2 5f 50 |ror . ..|.F..:._P|
|00000090| 6f 6c 6c 3a fd 20 71 75 | 69 74 25 0d 00 50 0e f2 |oll:. qu|it%..P..|
|000000a0| 63 6c 6f 73 65 64 6f 77 | 6e 0d 00 5a 05 e0 0d 00 |closedow|n..Z....|
|000000b0| 64 05 3a 0d 00 6e 0c dd | 20 f2 5f 49 6e 69 74 0d |d.:..n..| ._Init.|
|000000c0| 00 78 4f de 20 62 6c 6f | 63 6b 25 20 26 35 30 30 |.xO. blo|ck% &500|
|000000d0| 2c 73 70 72 69 74 65 25 | 20 32 30 2c 73 70 72 69 |,sprite%| 20,spri|
|000000e0| 74 65 5f 74 65 78 74 25 | 20 31 32 2c 73 70 72 69 |te_text%| 12,spri|
|000000f0| 74 65 32 25 20 32 30 2c | 6d 65 6e 75 25 20 35 30 |te2% 20,|menu% 50|
|00000100| 30 2c 69 63 6f 6e 62 6c | 6b 25 20 31 30 30 0d 00 |0,iconbl|k% 100..|
|00000110| 82 33 de 20 62 6c 6f 63 | 6b 32 25 20 26 35 30 30 |.3. bloc|k2% &500|
|00000120| 2c 6f 6c 64 62 6c 6b 25 | 20 26 35 30 30 2c 74 72 |,oldblk%| &500,tr|
|00000130| 61 63 65 25 20 31 30 2c | 63 61 72 65 74 25 20 32 |ace% 10,|caret% 2|
|00000140| 34 0d 00 8c 1a de 20 64 | 62 6c 6b 25 20 26 33 30 |4..... d|blk% &30|
|00000150| 30 30 30 2c 62 75 66 25 | 20 34 30 0d 00 96 17 de |000,buf%| 40.....|
|00000160| 20 46 6f 6e 74 24 28 35 | 29 2c 46 6f 6e 74 25 28 | Font$(5|),Font%(|
|00000170| 35 29 0d 00 a0 26 f4 20 | 4d 61 78 69 6d 75 6d 20 |5)...&. |Maximum |
|00000180| 61 72 72 61 79 20 73 69 | 7a 65 73 20 73 65 74 20 |array si|zes set |
|00000190| 75 70 20 68 65 72 65 21 | 0d 00 aa 3a 4d 61 78 50 |up here!|...:MaxP|
|000001a0| 6f 69 6e 74 73 25 3d 34 | 30 30 3a 4d 61 78 46 69 |oints%=4|00:MaxFi|
|000001b0| 6c 65 73 25 3d 31 30 3a | 4d 61 78 50 61 72 61 6d |les%=10:|MaxParam|
|000001c0| 73 25 3d 38 3a 4d 61 78 | 53 74 79 6c 65 73 25 3d |s%=8:Max|Styles%=|
|000001d0| 32 30 0d 00 b4 36 de 20 | 50 61 72 61 6d 48 25 28 |20...6. |ParamH%(|
|000001e0| 4d 61 78 50 61 72 61 6d | 73 25 29 2c 50 61 72 61 |MaxParam|s%),Para|
|000001f0| 6d 28 4d 61 78 50 61 72 | 61 6d 73 25 2c 4d 61 78 |m(MaxPar|ams%,Max|
|00000200| 50 6f 69 6e 74 73 25 29 | 0d 00 be 50 de 20 58 28 |Points%)|...P. X(|
|00000210| 4d 61 78 50 6f 69 6e 74 | 73 25 2c 4d 61 78 46 69 |MaxPoint|s%,MaxFi|
|00000220| 6c 65 73 25 29 2c 59 28 | 4d 61 78 50 6f 69 6e 74 |les%),Y(|MaxPoint|
|00000230| 73 25 2c 4d 61 78 46 69 | 6c 65 73 25 29 2c 45 72 |s%,MaxFi|les%),Er|
|00000240| 72 59 28 4d 61 78 50 6f | 69 6e 74 73 25 2c 4d 61 |rY(MaxPo|ints%,Ma|
|00000250| 78 46 69 6c 65 73 25 29 | 0d 00 c8 57 de 20 53 74 |xFiles%)|...W. St|
|00000260| 79 6c 65 48 25 28 4d 61 | 78 53 74 79 6c 65 73 25 |yleH%(Ma|xStyles%|
|00000270| 29 2c 53 74 79 6c 65 24 | 28 4d 61 78 53 74 79 6c |),Style$|(MaxStyl|
|00000280| 65 73 25 2c 4d 61 78 46 | 69 6c 65 73 25 29 2c 53 |es%,MaxF|iles%),S|
|00000290| 74 79 6c 65 46 6c 61 67 | 25 28 4d 61 78 53 74 79 |tyleFlag|%(MaxSty|
|000002a0| 6c 65 73 25 2c 4d 61 78 | 46 69 6c 65 73 25 29 0d |les%,Max|Files%).|
|000002b0| 00 d2 41 de 20 4d 6f 64 | 65 6c 25 28 4d 61 78 46 |..A. Mod|el%(MaxF|
|000002c0| 69 6c 65 73 25 29 2c 55 | 73 65 4d 6f 64 65 6c 25 |iles%),U|seModel%|
|000002d0| 28 4d 61 78 46 69 6c 65 | 73 25 29 2c 44 61 74 61 |(MaxFile|s%),Data|
|000002e0| 46 69 6c 65 24 28 4d 61 | 78 46 69 6c 65 73 25 29 |File$(Ma|xFiles%)|
|000002f0| 0d 00 dc 1e de 20 44 69 | 73 70 6c 61 79 4d 6f 64 |..... Di|splayMod|
|00000300| 65 6c 25 28 4d 61 78 46 | 69 6c 65 73 25 29 0d 00 |el%(MaxF|iles%)..|
|00000310| e6 21 de 20 4d 6f 64 65 | 6c 43 75 72 76 65 53 74 |.!. Mode|lCurveSt|
|00000320| 79 6c 65 25 28 4d 61 78 | 46 69 6c 65 73 25 29 0d |yle%(Max|Files%).|
|00000330| 00 f0 3f de 20 44 61 74 | 61 53 65 74 25 28 4d 61 |..?. Dat|aSet%(Ma|
|00000340| 78 46 69 6c 65 73 25 29 | 2c 50 61 72 61 6d 73 25 |xFiles%)|,Params%|
|00000350| 28 4d 61 78 46 69 6c 65 | 73 25 29 2c 4d 54 69 74 |(MaxFile|s%),MTit|
|00000360| 6c 65 24 28 4d 61 78 46 | 69 6c 65 73 25 29 0d 00 |le$(MaxF|iles%)..|
|00000370| fa 45 de 20 46 75 6e 63 | 24 28 4d 61 78 46 69 6c |.E. Func|$(MaxFil|
|00000380| 65 73 25 29 2c 41 75 78 | 46 75 6e 63 24 28 4d 61 |es%),Aux|Func$(Ma|
|00000390| 78 46 69 6c 65 73 25 29 | 2c 64 46 69 24 28 4d 61 |xFiles%)|,dFi$(Ma|
|000003a0| 78 50 61 72 61 6d 73 25 | 2c 4d 61 78 46 69 6c 65 |xParams%|,MaxFile|
|000003b0| 73 25 29 0d 01 04 33 de | 20 50 6f 69 6e 74 53 74 |s%)...3.| PointSt|
|000003c0| 79 6c 65 25 28 4d 61 78 | 46 69 6c 65 73 25 29 2c |yle%(Max|Files%),|
|000003d0| 43 75 72 76 65 53 74 79 | 6c 65 25 28 4d 61 78 46 |CurveSty|le%(MaxF|
|000003e0| 69 6c 65 73 25 29 0d 01 | 0e 3c de 20 4e 64 61 74 |iles%)..|.<. Ndat|
|000003f0| 61 25 28 4d 61 78 46 69 | 6c 65 73 25 29 2c 53 69 |a%(MaxFi|les%),Si|
|00000400| 67 65 78 28 4d 61 78 46 | 69 6c 65 73 25 29 2c 44 |gex(MaxF|iles%),D|
|00000410| 61 74 61 45 72 72 25 28 | 4d 61 78 46 69 6c 65 73 |ataErr%(|MaxFiles|
|00000420| 25 29 0d 01 18 33 de 20 | 58 63 28 4d 61 78 50 6f |%)...3. |Xc(MaxPo|
|00000430| 69 6e 74 73 25 29 2c 59 | 63 28 4d 61 78 50 6f 69 |ints%),Y|c(MaxPoi|
|00000440| 6e 74 73 25 29 2c 49 6e | 25 28 4d 61 78 50 6f 69 |nts%),In|%(MaxPoi|
|00000450| 6e 74 73 25 29 0d 01 22 | 17 de 20 6f 6b 73 25 20 |nts%).."|.. oks% |
|00000460| 32 3a 24 6f 6b 73 25 3d | 22 4f 4b 22 0d 01 2c 27 |2:$oks%=|"OK"..,'|
|00000470| de 20 66 6e 61 6d 65 25 | 20 32 35 35 2c 76 61 6c |. fname%| 255,val|
|00000480| 69 64 25 20 33 3a 24 76 | 61 6c 69 64 25 3d 22 41 |id% 3:$v|alid%="A|
|00000490| 7e 20 22 0d 01 36 27 de | 20 57 6f 72 6b 25 20 26 |~ "..6'.| Work% &|
|000004a0| 33 30 30 30 2c 49 6e 64 | 25 20 26 34 38 30 30 2c |3000,Ind|% &4800,|
|000004b0| 49 64 65 6e 74 25 20 26 | 32 30 0d 01 40 05 3a 0d |Ident% &|20..@.:.|
|000004c0| 01 4a 0e 53 74 79 6c 65 | 73 25 3d 31 37 0d 01 54 |.J.Style|s%=17..T|
|000004d0| 0b 53 46 25 3d 32 35 36 | 0d 01 5e 08 52 3d 31 36 |.SF%=256|..^.R=16|
|000004e0| 0d 01 68 0d 6b 3d 30 2e | 35 35 31 39 37 0d 01 72 |..h.k=0.|55197..r|
|000004f0| 1d 46 6f 6e 74 24 28 31 | 29 3d 22 54 72 69 6e 69 |.Font$(1|)="Trini|
|00000500| 74 79 2e 4d 65 64 69 75 | 6d 22 0d 01 7c 15 46 6f |ty.Mediu|m"..|.Fo|
|00000510| 6e 74 24 28 32 29 3d 22 | 53 79 6d 62 6f 6c 22 0d |nt$(2)="|Symbol".|
|00000520| 01 86 12 24 62 6c 6f 63 | 6b 25 3d 22 54 41 53 4b |...$bloc|k%="TASK|
|00000530| 22 0d 01 90 15 74 69 74 | 6c 65 24 3d 22 53 63 69 |"....tit|le$="Sci|
|00000540| 47 72 61 70 68 22 0d 01 | 9a 3c c8 99 20 22 57 69 |Graph"..|.<.. "Wi|
|00000550| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 2c 32 |mp_Initi|alise",2|
|00000560| 30 30 2c 21 62 6c 6f 63 | 6b 25 2c 74 69 74 6c 65 |00,!bloc|k%,title|
|00000570| 24 20 b8 20 76 65 72 73 | 69 6f 6e 25 2c 74 61 73 |$ . vers|ion%,tas|
|00000580| 6b 25 0d 01 a4 19 24 73 | 70 72 69 74 65 32 25 3d |k%....$s|prite2%=|
|00000590| 22 73 21 22 2b 74 69 74 | 6c 65 24 0d 01 ae 18 24 |"s!"+tit|le$....$|
|000005a0| 73 70 72 69 74 65 5f 74 | 65 78 74 25 3d 74 69 74 |sprite_t|ext%=tit|
|000005b0| 6c 65 24 0d 01 b8 44 73 | 69 63 6f 6e 25 3d a4 69 |le$...Ds|icon%=.i|
|000005c0| 63 6f 6e 28 2d 31 2c 30 | 2c 2d 31 36 2c 31 32 38 |con(-1,0|,-16,128|
|000005d0| 2c 39 32 2c 26 31 37 30 | 30 33 31 32 42 2c 73 70 |,92,&170|0312B,sp|
|000005e0| 72 69 74 65 5f 74 65 78 | 74 25 2c 73 70 72 69 74 |rite_tex|t%,sprit|
|000005f0| 65 32 25 2c 31 31 29 0d | 01 c2 13 62 6c 6f 63 6b |e2%,11).|...block|
|00000600| 6c 65 6e 25 3d 26 34 30 | 30 30 0d 01 cc 15 71 75 |len%=&40|00....qu|
|00000610| 69 74 25 3d a3 3a 6d 79 | 72 65 66 25 3d 2d 31 0d |it%=.:my|ref%=-1.|
|00000620| 01 d6 10 53 70 6f 6f 6c | 46 6c 61 67 25 3d a3 0d |...Spool|Flag%=..|
|00000630| 01 e0 14 41 75 74 6f 53 | 63 61 6c 65 44 61 74 61 |...AutoS|caleData|
|00000640| 25 3d b9 0d 01 ea 05 e1 | 0d 01 f4 05 3a 0d 01 fe |%=......|....:...|
|00000650| 11 dd 20 f2 5f 54 65 6d | 70 6c 61 74 65 73 0d 02 |.. ._Tem|plates..|
|00000660| 08 16 45 6e 64 49 6e 64 | 25 3d 49 6e 64 25 2b 26 |..EndInd|%=Ind%+&|
|00000670| 34 38 30 30 0d 02 12 36 | c8 99 20 22 57 69 6d 70 |4800...6|.. "Wimp|
|00000680| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|00000690| 22 3c 53 63 69 47 72 61 | 70 68 24 44 69 72 3e 2e |"<SciGra|ph$Dir>.|
|000006a0| 54 65 6d 70 6c 61 74 65 | 73 22 0d 02 1c 18 f4 20 |Template|s"..... |
|000006b0| 49 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 77 69 6e 64 |Informat|ion wind|
|000006c0| 6f 77 0d 02 26 1a 24 49 | 64 65 6e 74 25 3d 22 49 |ow..&.$I|dent%="I|
|000006d0| 6e 66 6f 22 2b c4 38 2c | bd 31 33 29 0d 02 30 0a |nfo"+.8,|.13)..0.|
|000006e0| 50 6f 73 25 3d 30 0d 02 | 3a 4e c8 99 20 22 57 69 |Pos%=0..|:N.. "Wi|
|000006f0| 6d 70 5f 4c 6f 61 64 54 | 65 6d 70 6c 61 74 65 22 |mp_LoadT|emplate"|
|00000700| 2c 2c 57 6f 72 6b 25 2c | 49 6e 64 25 2c 45 6e 64 |,,Work%,|Ind%,End|
|00000710| 49 6e 64 25 2c 2d 31 2c | 49 64 65 6e 74 25 2c 50 |Ind%,-1,|Ident%,P|
|00000720| 6f 73 25 20 b8 20 2c 2c | 49 6e 64 25 2c 2c 2c 2c |os% . ,,|Ind%,,,,|
|00000730| 50 6f 73 25 0d 02 44 29 | c8 99 20 22 57 69 6d 70 |Pos%..D)|.. "Wimp|
|00000740| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000750| 57 6f 72 6b 25 20 b8 20 | 49 6e 66 6f 25 0d 02 4e |Work% . |Info%..N|
|00000760| 31 e7 20 50 6f 73 25 3d | 30 20 85 20 31 2c 22 43 |1. Pos%=|0 . 1,"C|
|00000770| 61 6e 27 74 20 66 69 6e | 64 20 77 69 6e 64 6f 77 |an't fin|d window|
|00000780| 20 64 65 66 69 6e 69 74 | 69 6f 6e 22 3a e0 0d 02 | definit|ion":...|
|00000790| 58 13 f4 20 53 61 76 65 | 20 66 69 6c 65 20 62 6f |X.. Save| file bo|
|000007a0| 78 0d 02 62 1a 24 49 64 | 65 6e 74 25 3d 22 46 69 |x..b.$Id|ent%="Fi|
|000007b0| 6c 65 22 2b c4 38 2c bd | 31 33 29 0d 02 6c 0a 50 |le"+.8,.|13)..l.P|
|000007c0| 6f 73 25 3d 30 0d 02 76 | 4e c8 99 20 22 57 69 6d |os%=0..v|N.. "Wim|
|000007d0| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|000007e0| 2c 57 6f 72 6b 25 2c 49 | 6e 64 25 2c 45 6e 64 49 |,Work%,I|nd%,EndI|
|000007f0| 6e 64 25 2c 2d 31 2c 49 | 64 65 6e 74 25 2c 50 6f |nd%,-1,I|dent%,Po|
|00000800| 73 25 20 b8 20 2c 2c 49 | 6e 64 25 2c 2c 2c 2c 50 |s% . ,,I|nd%,,,,P|
|00000810| 6f 73 25 0d 02 80 29 c8 | 99 20 22 57 69 6d 70 5f |os%...).|. "Wimp_|
|00000820| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 57 |CreateWi|ndow",,W|
|00000830| 6f 72 6b 25 20 b8 20 66 | 69 6c 65 25 0d 02 8a 31 |ork% . f|ile%...1|
|00000840| e7 20 50 6f 73 25 3d 30 | 20 85 20 31 2c 22 43 61 |. Pos%=0| . 1,"Ca|
|00000850| 6e 27 74 20 66 69 6e 64 | 20 77 69 6e 64 6f 77 20 |n't find| window |
|00000860| 64 65 66 69 6e 69 74 69 | 6f 6e 22 3a e0 0d 02 94 |definiti|on":....|
|00000870| 1b f4 20 61 64 64 20 69 | 6e 20 73 61 76 65 20 62 |.. add i|n save b|
|00000880| 6f 78 20 69 63 6f 6e 73 | 0d 02 9e 39 6f 6b 25 3d |ox icons|...9ok%=|
|00000890| a4 69 63 6f 6e 28 66 69 | 6c 65 25 2c 31 39 32 2c |.icon(fi|le%,192,|
|000008a0| 2d 31 36 30 2c 32 33 38 | 2c 2d 31 31 32 2c 26 43 |-160,238|,-112,&C|
|000008b0| 37 30 31 39 31 33 44 2c | 6f 6b 73 25 2c 30 2c 33 |701913D,|oks%,0,3|
|000008c0| 29 0d 02 a8 42 6e 61 6d | 65 25 3d a4 69 63 6f 6e |)...Bnam|e%=.icon|
|000008d0| 28 66 69 6c 65 25 2c 31 | 30 2c 2d 31 36 30 2c 31 |(file%,1|0,-160,1|
|000008e0| 38 36 2c 2d 31 31 32 2c | 26 37 30 30 46 31 33 44 |86,-112,|&700F13D|
|000008f0| 2c 66 6e 61 6d 65 25 2c | 76 61 6c 69 64 25 2c 32 |,fname%,|valid%,2|
|00000900| 35 36 29 0d 02 b2 3d 66 | 69 63 6f 6e 25 3d a4 69 |56)...=f|icon%=.i|
|00000910| 63 6f 6e 28 66 69 6c 65 | 25 2c 37 38 2c 2d 39 32 |con(file|%,78,-92|
|00000920| 2c 31 34 36 2c 2d 32 30 | 2c 26 44 37 30 30 36 31 |,146,-20|,&D70061|
|00000930| 30 32 2c 73 70 72 69 74 | 65 25 2c 31 2c 32 30 29 |02,sprit|e%,1,20)|
|00000940| 0d 02 bc 12 f4 20 53 63 | 61 6c 65 20 77 69 6e 64 |..... Sc|ale wind|
|00000950| 6f 77 0d 02 c6 1b 24 49 | 64 65 6e 74 25 3d 22 53 |ow....$I|dent%="S|
|00000960| 63 61 6c 65 22 2b c4 37 | 2c bd 31 33 29 0d 02 d0 |cale"+.7|,.13)...|
|00000970| 0a 50 6f 73 25 3d 30 0d | 02 da 4e c8 99 20 22 57 |.Pos%=0.|..N.. "W|
|00000980| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00000990| 22 2c 2c 57 6f 72 6b 25 | 2c 49 6e 64 25 2c 45 6e |",,Work%|,Ind%,En|
|000009a0| 64 49 6e 64 25 2c 2d 31 | 2c 49 64 65 6e 74 25 2c |dInd%,-1|,Ident%,|
|000009b0| 50 6f 73 25 20 b8 20 2c | 2c 49 6e 64 25 2c 2c 2c |Pos% . ,|,Ind%,,,|
|000009c0| 2c 50 6f 73 25 0d 02 e4 | 2a c8 99 20 22 57 69 6d |,Pos%...|*.. "Wim|
|000009d0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|000009e0| 2c 57 6f 72 6b 25 20 b8 | 20 53 63 61 6c 65 25 0d |,Work% .| Scale%.|
|000009f0| 02 ee 31 e7 20 50 6f 73 | 25 3d 30 20 85 20 31 2c |..1. Pos|%=0 . 1,|
|00000a00| 22 43 61 6e 27 74 20 66 | 69 6e 64 20 77 69 6e 64 |"Can't f|ind wind|
|00000a10| 6f 77 20 64 65 66 69 6e | 69 74 69 6f 6e 22 3a e0 |ow defin|ition":.|
|00000a20| 0d 02 f8 10 44 61 74 61 | 53 65 74 73 48 25 3d 30 |....Data|SetsH%=0|
|00000a30| 0d 03 02 40 58 6d 69 6e | 48 25 3d 34 3a 58 6d 61 |...@Xmin|H%=4:Xma|
|00000a40| 78 48 25 3d 36 3a 58 74 | 69 63 6b 73 48 25 3d 38 |xH%=6:Xt|icksH%=8|
|00000a50| 3a 59 6d 69 6e 48 25 3d | 31 30 3a 59 6d 61 78 48 |:YminH%=|10:YmaxH|
|00000a60| 25 3d 31 32 3a 59 74 69 | 63 6b 73 48 25 3d 31 34 |%=12:Yti|cksH%=14|
|00000a70| 0d 03 0c 32 58 74 69 63 | 6b 49 6e 74 48 25 3d 31 |...2Xtic|kIntH%=1|
|00000a80| 35 3a 59 74 69 63 6b 49 | 6e 74 48 25 3d 31 36 3a |5:YtickI|ntH%=16:|
|00000a90| 41 75 74 6f 53 63 61 6c | 65 44 61 74 61 48 25 3d |AutoScal|eDataH%=|
|00000aa0| 31 37 0d 03 16 13 f4 20 | 4c 65 67 65 6e 64 20 77 |17..... |Legend w|
|00000ab0| 69 6e 64 6f 77 0d 03 20 | 1c 24 49 64 65 6e 74 25 |indow.. |.$Ident%|
|00000ac0| 3d 22 4c 65 67 65 6e 64 | 22 2b c4 36 2c bd 31 33 |="Legend|"+.6,.13|
|00000ad0| 29 0d 03 2a 0a 50 6f 73 | 25 3d 30 0d 03 34 4e c8 |)..*.Pos|%=0..4N.|
|00000ae0| 99 20 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |. "Wimp_|LoadTemp|
|00000af0| 6c 61 74 65 22 2c 2c 57 | 6f 72 6b 25 2c 49 6e 64 |late",,W|ork%,Ind|
|00000b00| 25 2c 45 6e 64 49 6e 64 | 25 2c 2d 31 2c 49 64 65 |%,EndInd|%,-1,Ide|
|00000b10| 6e 74 25 2c 50 6f 73 25 | 20 b8 20 2c 2c 49 6e 64 |nt%,Pos%| . ,,Ind|
|00000b20| 25 2c 2c 2c 2c 50 6f 73 | 25 0d 03 3e 2b c8 99 20 |%,,,,Pos|%..>+.. |
|00000b30| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000b40| 6f 77 22 2c 2c 57 6f 72 | 6b 25 20 b8 20 4c 65 67 |ow",,Wor|k% . Leg|
|00000b50| 65 6e 64 25 0d 03 48 31 | e7 20 50 6f 73 25 3d 30 |end%..H1|. Pos%=0|
|00000b60| 20 85 20 31 2c 22 43 61 | 6e 27 74 20 66 69 6e 64 | . 1,"Ca|n't find|
|00000b70| 20 77 69 6e 64 6f 77 20 | 64 65 66 69 6e 69 74 69 | window |definiti|
|00000b80| 6f 6e 22 3a e0 0d 03 52 | 23 54 69 74 6c 65 48 25 |on":...R|#TitleH%|
|00000b90| 3d 31 3a 58 6c 61 62 6c | 65 48 25 3d 33 3a 59 6c |=1:Xlabl|eH%=3:Yl|
|00000ba0| 61 62 6c 65 48 25 3d 35 | 0d 03 5c 15 58 65 78 70 |ableH%=5|..\.Xexp|
|00000bb0| 48 25 3d 36 3a 59 65 78 | 70 48 25 3d 37 0d 03 66 |H%=6:Yex|pH%=7..f|
|00000bc0| 0a f7 20 8d 64 4e 44 0d | 03 70 27 e3 20 41 25 3d |.. .dND.|.p'. A%=|
|00000bd0| 31 20 b8 20 53 74 79 6c | 65 73 25 3a f3 20 53 74 |1 . Styl|es%:. St|
|00000be0| 79 6c 65 48 25 28 41 25 | 29 3a ed 20 41 25 0d 03 |yleH%(A%|):. A%..|
|00000bf0| 7a 15 f4 20 44 61 74 61 | 53 65 74 20 77 69 6e 64 |z.. Data|Set wind|
|00000c00| 6f 77 73 0d 03 84 16 e3 | 20 42 25 3d 31 20 b8 20 |ows.....| B%=1 . |
|00000c10| 4d 61 78 46 69 6c 65 73 | 25 0d 03 8e 1e 24 49 64 |MaxFiles|%....$Id|
|00000c20| 65 6e 74 25 3d 22 44 61 | 74 61 53 65 74 4e 22 2b |ent%="Da|taSetN"+|
|00000c30| c4 34 2c bd 31 33 29 0d | 03 98 0a 50 6f 73 25 3d |.4,.13).|...Pos%=|
|00000c40| 30 0d 03 a2 4e c8 99 20 | 22 57 69 6d 70 5f 4c 6f |0...N.. |"Wimp_Lo|
|00000c50| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 57 6f 72 |adTempla|te",,Wor|
|00000c60| 6b 25 2c 49 6e 64 25 2c | 45 6e 64 49 6e 64 25 2c |k%,Ind%,|EndInd%,|
|00000c70| 2d 31 2c 49 64 65 6e 74 | 25 2c 50 6f 73 25 20 b8 |-1,Ident|%,Pos% .|
|00000c80| 20 2c 2c 49 6e 64 25 2c | 2c 2c 2c 50 6f 73 25 0d | ,,Ind%,|,,,Pos%.|
|00000c90| 03 ac 30 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..0.. "W|imp_Crea|
|00000ca0| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 57 6f 72 6b 25 |teWindow|",,Work%|
|00000cb0| 20 b8 20 44 61 74 61 53 | 65 74 25 28 42 25 29 0d | . DataS|et%(B%).|
|00000cc0| 03 b6 31 e7 20 50 6f 73 | 25 3d 30 20 85 20 31 2c |..1. Pos|%=0 . 1,|
|00000cd0| 22 43 61 6e 27 74 20 66 | 69 6e 64 20 77 69 6e 64 |"Can't f|ind wind|
|00000ce0| 6f 77 20 64 65 66 69 6e | 69 74 69 6f 6e 22 3a e0 |ow defin|ition":.|
|00000cf0| 0d 03 c0 0a f7 20 8d 64 | 62 44 0d 03 ca 14 e3 20 |..... .d|bD..... |
|00000d00| 41 25 3d 31 20 b8 20 53 | 74 79 6c 65 73 25 0d 03 |A%=1 . S|tyles%..|
|00000d10| d4 13 f3 20 53 74 79 6c | 65 24 28 41 25 2c 42 25 |... Styl|e$(A%,B%|
|00000d20| 29 0d 03 de 17 53 74 79 | 6c 65 46 6c 61 67 25 28 |)....Sty|leFlag%(|
|00000d30| 41 25 2c 42 25 29 3d b9 | 0d 03 e8 08 ed 20 41 25 |A%,B%)=.|..... A%|
|00000d40| 0d 03 f2 1b 44 61 74 61 | 53 65 74 50 74 72 25 3d |....Data|SetPtr%=|
|00000d50| 21 28 57 6f 72 6b 25 2b | 37 32 29 0d 03 fc 24 24 |!(Work%+|72)...$$|
|00000d60| 28 44 61 74 61 53 65 74 | 50 74 72 25 29 3d 22 44 |(DataSet|Ptr%)="D|
|00000d70| 61 74 61 20 53 65 74 20 | 22 2b c3 28 42 25 29 0d |ata Set |"+.(B%).|
|00000d80| 04 06 43 44 61 74 61 46 | 69 6c 65 24 28 42 25 29 |..CDataF|ile$(B%)|
|00000d90| 3d 22 46 69 6c 65 20 3d | 20 61 64 66 73 3a 3a 24 |="File =| adfs::$|
|00000da0| 2e 30 31 32 33 34 35 36 | 37 38 39 2e 30 31 32 33 |.0123456|789.0123|
|00000db0| 34 35 36 37 38 39 2e 30 | 31 32 33 34 35 36 37 38 |456789.0|12345678|
|00000dc0| 39 22 0d 04 10 14 4d 6f | 64 65 6c 43 75 72 76 65 |9"....Mo|delCurve|
|00000dd0| 44 48 25 3d 32 37 0d 04 | 1a 14 4d 6f 64 65 6c 43 |DH%=27..|..ModelC|
|00000de0| 75 72 76 65 46 48 25 3d | 32 38 0d 04 24 11 55 73 |urveFH%=|28..$.Us|
|00000df0| 65 4d 6f 64 65 6c 48 25 | 3d 32 39 0d 04 2e 15 44 |eModelH%|=29....D|
|00000e00| 69 73 70 6c 61 79 4d 6f | 64 65 6c 48 25 3d 33 30 |isplayMo|delH%=30|
|00000e10| 0d 04 38 10 44 61 74 61 | 46 69 6c 65 48 25 3d 30 |..8.Data|FileH%=0|
|00000e20| 0d 04 42 0e 53 69 67 65 | 78 48 25 3d 32 32 0d 04 |..B.Sige|xH%=22..|
|00000e30| 4c 13 f4 20 4d 6f 64 65 | 6c 73 20 77 69 6e 64 6f |L.. Mode|ls windo|
|00000e40| 77 0d 04 56 1c 24 49 64 | 65 6e 74 25 3d 22 4d 6f |w..V.$Id|ent%="Mo|
|00000e50| 64 65 6c 4e 22 2b c4 36 | 2c bd 31 33 29 0d 04 60 |delN"+.6|,.13)..`|
|00000e60| 0a 50 6f 73 25 3d 30 0d | 04 6a 4e c8 99 20 22 57 |.Pos%=0.|.jN.. "W|
|00000e70| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00000e80| 22 2c 2c 57 6f 72 6b 25 | 2c 49 6e 64 25 2c 45 6e |",,Work%|,Ind%,En|
|00000e90| 64 49 6e 64 25 2c 2d 31 | 2c 49 64 65 6e 74 25 2c |dInd%,-1|,Ident%,|
|00000ea0| 50 6f 73 25 20 b8 20 2c | 2c 49 6e 64 25 2c 2c 2c |Pos% . ,|,Ind%,,,|
|00000eb0| 2c 50 6f 73 25 0d 04 74 | 2e c8 99 20 22 57 69 6d |,Pos%..t|... "Wim|
|00000ec0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000ed0| 2c 57 6f 72 6b 25 20 b8 | 20 4d 6f 64 65 6c 25 28 |,Work% .| Model%(|
|00000ee0| 42 25 29 0d 04 7e 31 e7 | 20 50 6f 73 25 3d 30 20 |B%)..~1.| Pos%=0 |
|00000ef0| 85 20 31 2c 22 43 61 6e | 27 74 20 66 69 6e 64 20 |. 1,"Can|'t find |
|00000f00| 77 69 6e 64 6f 77 20 64 | 65 66 69 6e 69 74 69 6f |window d|efinitio|
|00000f10| 6e 22 3a e0 0d 04 88 35 | 4d 6f 64 65 6c 50 74 72 |n":....5|ModelPtr|
|00000f20| 25 3d 21 28 57 6f 72 6b | 25 2b 37 32 29 3a 24 28 |%=!(Work|%+72):$(|
|00000f30| 4d 6f 64 65 6c 50 74 72 | 25 29 3d 22 4d 6f 64 65 |ModelPtr|%)="Mode|
|00000f40| 6c 20 22 2b c3 28 42 25 | 29 0d 04 92 08 ed 20 42 |l "+.(B%|)..... B|
|00000f50| 25 0d 04 9c 23 50 61 72 | 61 6d 73 48 25 3d 31 3a |%...#Par|amsH%=1:|
|00000f60| 46 75 6e 63 48 25 3d 33 | 3a 41 75 78 46 75 6e 63 |FuncH%=3|:AuxFunc|
|00000f70| 48 25 3d 35 0d 04 a6 26 | e3 20 41 25 3d 31 20 b8 |H%=5...&|. A%=1 .|
|00000f80| 20 38 3a 50 61 72 61 6d | 48 25 28 41 25 29 3d 35 | 8:Param|H%(A%)=5|
|00000f90| 2b 32 2a 41 25 3a ed 20 | 41 25 0d 04 b0 1b c8 99 |+2*A%:. |A%......|
|00000fa0| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 54 65 6d 70 | "Wimp_C|loseTemp|
|00000fb0| 6c 61 74 65 22 0d 04 ba | 05 e1 0d 04 c4 05 3a 0d |late"...|......:.|
|00000fc0| 04 ce 15 f4 20 53 74 79 | 6c 65 20 69 63 6f 6e 20 |.... Sty|le icon |
|00000fd0| 64 61 74 61 0d 04 d8 36 | dc 20 38 2c 39 2c 31 30 |data...6|. 8,9,10|
|00000fe0| 2c 31 31 2c 31 32 2c 31 | 33 2c 31 34 2c 31 35 2c |,11,12,1|3,14,15,|
|00000ff0| 31 36 2c 31 37 2c 31 38 | 2c 31 39 2c 32 30 2c 32 |16,17,18|,19,20,2|
|00001000| 33 2c 32 34 2c 32 35 2c | 32 36 0d 04 e2 35 f4 20 |3,24,25,|26...5. |
|00001010| 53 74 79 6c 65 20 66 75 | 6e 63 74 69 6f 6e 20 6e |Style fu|nction n|
|00001020| 61 6d 65 20 73 74 72 69 | 6e 67 73 20 28 73 65 65 |ame stri|ngs (see|
|00001030| 20 44 72 61 77 46 69 6c | 65 20 63 6f 64 65 29 0d | DrawFil|e code).|
|00001040| 04 ec 23 dc 20 22 4f 70 | 65 6e 5f 43 69 72 63 6c |..#. "Op|en_Circl|
|00001050| 65 22 2c 22 46 69 6c 6c | 65 64 5f 43 69 72 63 6c |e","Fill|ed_Circl|
|00001060| 65 22 0d 04 f6 23 dc 20 | 22 4f 70 65 6e 5f 53 71 |e"...#. |"Open_Sq|
|00001070| 75 61 72 65 22 2c 22 46 | 69 6c 6c 65 64 5f 53 71 |uare","F|illed_Sq|
|00001080| 75 61 72 65 22 0d 05 00 | 27 dc 20 22 4f 70 65 6e |uare"...|'. "Open|
|00001090| 5f 54 72 69 61 6e 67 6c | 65 22 2c 22 46 69 6c 6c |_Triangl|e","Fill|
|000010a0| 65 64 5f 54 72 69 61 6e | 67 6c 65 22 0d 05 0a 25 |ed_Trian|gle"...%|
|000010b0| dc 20 22 4f 70 65 6e 5f | 44 69 61 6d 6f 6e 64 22 |. "Open_|Diamond"|
|000010c0| 2c 22 46 69 6c 6c 65 64 | 5f 44 69 61 6d 6f 6e 64 |,"Filled|_Diamond|
|000010d0| 22 0d 05 14 23 dc 20 22 | 4f 70 65 6e 5f 49 6e 76 |"...#. "|Open_Inv|
|000010e0| 54 72 69 22 2c 22 46 69 | 6c 6c 65 64 5f 49 6e 76 |Tri","Fi|lled_Inv|
|000010f0| 54 72 69 22 0d 05 1e 19 | dc 20 22 43 72 6f 73 73 |Tri"....|. "Cross|
|00001100| 5f 31 22 2c 22 43 72 6f | 73 73 5f 32 22 0d 05 28 |_1","Cro|ss_2"..(|
|00001110| 12 dc 20 22 45 72 72 6f | 72 5f 42 61 72 73 22 0d |.. "Erro|r_Bars".|
|00001120| 05 32 1a dc 20 22 4c 69 | 6e 65 22 2c 22 44 61 73 |.2.. "Li|ne","Das|
|00001130| 68 65 64 5f 4c 69 6e 65 | 22 0d 05 3c 2a dc 20 22 |hed_Line|"..<*. "|
|00001140| 42 65 7a 69 65 72 5f 43 | 75 62 69 63 22 2c 22 44 |Bezier_C|ubic","D|
|00001150| 61 73 68 65 64 5f 42 65 | 7a 69 65 72 5f 43 75 62 |ashed_Be|zier_Cub|
|00001160| 69 63 22 0d 05 46 05 3a | 0d 05 50 10 dd 20 f2 5f |ic"..F.:|..P.. ._|
|00001170| 49 6e 69 74 56 61 72 73 | 0d 05 5a 0b ea 20 41 25 |InitVars|..Z.. A%|
|00001180| 2c 42 25 0d 05 64 10 77 | 69 6e 64 25 3d 53 63 61 |,B%..d.w|ind%=Sca|
|00001190| 6c 65 25 0d 05 6e 48 44 | 61 74 61 53 65 74 73 25 |le%..nHD|ataSets%|
|000011a0| 3d 30 3a f2 73 65 74 76 | 61 72 69 63 6f 6e 28 44 |=0:.setv|aricon(D|
|000011b0| 61 74 61 53 65 74 73 48 | 25 2c 22 23 20 6f 66 20 |ataSetsH|%,"# of |
|000011c0| 64 61 74 61 20 73 65 74 | 73 20 3d 20 22 2b c3 28 |data set|s = "+.(|
|000011d0| 44 61 74 61 53 65 74 73 | 25 29 29 0d 05 78 29 58 |DataSets|%))..x)X|
|000011e0| 6d 69 6e 30 3d 2d 31 30 | 3a 58 6d 61 78 30 3d 31 |min0=-10|:Xmax0=1|
|000011f0| 30 3a 59 6d 69 6e 30 3d | 2d 31 30 3a 59 6d 61 78 |0:Ymin0=|-10:Ymax|
|00001200| 30 3d 31 30 0d 05 82 28 | 58 6d 69 6e 3d 2d 31 30 |0=10...(|Xmin=-10|
|00001210| 3a f2 73 65 74 76 61 72 | 69 63 6f 6e 28 58 6d 69 |:.setvar|icon(Xmi|
|00001220| 6e 48 25 2c c3 28 58 6d | 69 6e 29 29 0d 05 8c 27 |nH%,.(Xm|in))...'|
|00001230| 58 6d 61 78 3d 31 30 3a | f2 73 65 74 76 61 72 69 |Xmax=10:|.setvari|
|00001240| 63 6f 6e 28 58 6d 61 78 | 48 25 2c c3 28 58 6d 61 |con(Xmax|H%,.(Xma|
|00001250| 78 29 29 0d 05 96 2e 58 | 74 69 63 6b 73 25 3d 35 |x))....X|ticks%=5|
|00001260| 3a f2 73 65 74 76 61 72 | 69 63 6f 6e 28 58 74 69 |:.setvar|icon(Xti|
|00001270| 63 6b 73 48 25 2c c3 28 | 58 74 69 63 6b 73 25 29 |cksH%,.(|Xticks%)|
|00001280| 29 0d 05 a0 45 58 74 69 | 63 6b 49 6e 74 3d 34 3a |)...EXti|ckInt=4:|
|00001290| f2 73 65 74 76 61 72 69 | 63 6f 6e 28 58 74 69 63 |.setvari|con(Xtic|
|000012a0| 6b 49 6e 74 48 25 2c 22 | 54 69 63 6b 20 69 6e 74 |kIntH%,"|Tick int|
|000012b0| 65 72 76 61 6c 20 3d 20 | 22 2b c3 28 58 74 69 63 |erval = |"+.(Xtic|
|000012c0| 6b 49 6e 74 29 29 0d 05 | aa 28 59 6d 69 6e 3d 2d |kInt))..|.(Ymin=-|
|000012d0| 31 30 3a f2 73 65 74 76 | 61 72 69 63 6f 6e 28 59 |10:.setv|aricon(Y|
|000012e0| 6d 69 6e 48 25 2c c3 28 | 59 6d 69 6e 29 29 0d 05 |minH%,.(|Ymin))..|
|000012f0| b4 27 59 6d 61 78 3d 31 | 30 3a f2 73 65 74 76 61 |.'Ymax=1|0:.setva|
|00001300| 72 69 63 6f 6e 28 59 6d | 61 78 48 25 2c c3 28 59 |ricon(Ym|axH%,.(Y|
|00001310| 6d 61 78 29 29 0d 05 be | 2e 59 74 69 63 6b 73 25 |max))...|.Yticks%|
|00001320| 3d 35 3a f2 73 65 74 76 | 61 72 69 63 6f 6e 28 59 |=5:.setv|aricon(Y|
|00001330| 74 69 63 6b 73 48 25 2c | c3 28 59 74 69 63 6b 73 |ticksH%,|.(Yticks|
|00001340| 25 29 29 0d 05 c8 45 59 | 74 69 63 6b 49 6e 74 3d |%))...EY|tickInt=|
|00001350| 34 3a f2 73 65 74 76 61 | 72 69 63 6f 6e 28 59 74 |4:.setva|ricon(Yt|
|00001360| 69 63 6b 49 6e 74 48 25 | 2c 22 54 69 63 6b 20 69 |ickIntH%|,"Tick i|
|00001370| 6e 74 65 72 76 61 6c 20 | 3d 20 22 2b c3 28 59 74 |nterval |= "+.(Yt|
|00001380| 69 63 6b 49 6e 74 29 29 | 0d 05 d2 20 f2 73 65 6c |ickInt))|... .sel|
|00001390| 65 63 74 69 63 6f 6e 28 | 41 75 74 6f 53 63 61 6c |ecticon(|AutoScal|
|000013a0| 65 44 61 74 61 48 25 29 | 0d 05 dc 05 f4 0d 05 e6 |eDataH%)|........|
|000013b0| 11 77 69 6e 64 25 3d 4c | 65 67 65 6e 64 25 0d 05 |.wind%=L|egend%..|
|000013c0| f0 3c 54 69 74 6c 65 24 | 3d 22 44 65 6d 6f 6e 73 |.<Title$|="Demons|
|000013d0| 74 72 61 74 69 6f 6e 20 | 47 72 61 70 68 22 3a f2 |tration |Graph":.|
|000013e0| 73 65 74 76 61 72 69 63 | 6f 6e 28 54 69 74 6c 65 |setvaric|on(Title|
|000013f0| 48 25 2c 54 69 74 6c 65 | 24 29 0d 05 fa 2d 58 6c |H%,Title|$)...-Xl|
|00001400| 61 62 6c 65 24 3d 22 58 | 22 3a f2 73 65 74 76 61 |able$="X|":.setva|
|00001410| 72 69 63 6f 6e 28 58 6c | 61 62 6c 65 48 25 2c 58 |ricon(Xl|ableH%,X|
|00001420| 6c 61 62 6c 65 24 29 0d | 06 04 2d 59 6c 61 62 6c |lable$).|..-Ylabl|
|00001430| 65 24 3d 22 59 22 3a f2 | 73 65 74 76 61 72 69 63 |e$="Y":.|setvaric|
|00001440| 6f 6e 28 59 6c 61 62 6c | 65 48 25 2c 59 6c 61 62 |on(Ylabl|eH%,Ylab|
|00001450| 6c 65 24 29 0d 06 0e 21 | 58 45 66 6c 61 67 25 3d |le$)...!|XEflag%=|
|00001460| b9 3a f2 73 65 6c 65 63 | 74 69 63 6f 6e 28 58 65 |.:.selec|ticon(Xe|
|00001470| 78 70 48 25 29 0d 06 18 | 21 59 45 66 6c 61 67 25 |xpH%)...|!YEflag%|
|00001480| 3d b9 3a f2 73 65 6c 65 | 63 74 69 63 6f 6e 28 59 |=.:.sele|cticon(Y|
|00001490| 65 78 70 48 25 29 0d 06 | 22 16 e3 20 41 25 3d 31 |expH%)..|".. A%=1|
|000014a0| 20 b8 20 4d 61 78 46 69 | 6c 65 73 25 0d 06 2c 14 | . MaxFi|les%..,.|
|000014b0| 77 69 6e 64 25 3d 4d 6f | 64 65 6c 25 28 41 25 29 |wind%=Mo|del%(A%)|
|000014c0| 0d 06 36 36 50 61 72 61 | 6d 73 25 28 41 25 29 3d |..66Para|ms%(A%)=|
|000014d0| 31 3a f2 73 65 74 76 61 | 72 69 63 6f 6e 28 50 61 |1:.setva|ricon(Pa|
|000014e0| 72 61 6d 73 48 25 2c c3 | 28 50 61 72 61 6d 73 25 |ramsH%,.|(Params%|
|000014f0| 28 41 25 29 29 29 0d 06 | 40 12 4d 54 69 74 6c 65 |(A%)))..|@.MTitle|
|00001500| 24 28 41 25 29 3d 22 22 | 0d 06 4a 27 46 75 6e 63 |$(A%)=""|..J'Func|
|00001510| 24 28 41 25 29 3d 22 22 | 3a f2 73 65 74 76 61 72 |$(A%)=""|:.setvar|
|00001520| 69 63 6f 6e 28 46 75 6e | 63 48 25 2c 22 22 29 0d |icon(Fun|cH%,"").|
|00001530| 06 54 2d 41 75 78 46 75 | 6e 63 24 28 41 25 29 3d |.T-AuxFu|nc$(A%)=|
|00001540| 22 22 3a f2 73 65 74 76 | 61 72 69 63 6f 6e 28 41 |"":.setv|aricon(A|
|00001550| 75 78 46 75 6e 63 48 25 | 2c 22 22 29 0d 06 5e 16 |uxFuncH%|,"")..^.|
|00001560| 77 69 6e 64 25 3d 44 61 | 74 61 53 65 74 25 28 41 |wind%=Da|taSet%(A|
|00001570| 25 29 0d 06 68 13 55 73 | 65 4d 6f 64 65 6c 25 28 |%)..h.Us|eModel%(|
|00001580| 41 25 29 3d a3 0d 06 72 | 17 44 69 73 70 6c 61 79 |A%)=...r|.Display|
|00001590| 4d 6f 64 65 6c 25 28 41 | 25 29 3d a3 0d 06 7c 2e |Model%(A|%)=...|.|
|000015a0| 4d 6f 64 65 6c 43 75 72 | 76 65 53 74 79 6c 65 25 |ModelCur|veStyle%|
|000015b0| 28 41 25 29 3d 30 20 3a | f4 20 30 3d 46 75 6c 6c |(A%)=0 :|. 0=Full|
|000015c0| 2c 20 31 3d 44 61 73 68 | 65 64 0d 06 86 17 f2 63 |, 1=Dash|ed.....c|
|000015d0| 6c 65 61 72 73 74 79 6c | 65 76 61 72 73 28 41 25 |learstyl|evars(A%|
|000015e0| 29 0d 06 90 2d e3 20 42 | 25 3d 31 20 b8 20 53 74 |)...-. B|%=1 . St|
|000015f0| 79 6c 65 73 25 3a 53 74 | 79 6c 65 46 6c 61 67 25 |yles%:St|yleFlag%|
|00001600| 28 42 25 2c 41 25 29 3d | a3 3a ed 20 42 25 0d 06 |(B%,A%)=|.:. B%..|
|00001610| 9a 27 50 6f 69 6e 74 53 | 74 79 6c 65 25 28 41 25 |.'PointS|tyle%(A%|
|00001620| 29 3d 30 3a 43 75 72 76 | 65 53 74 79 6c 65 25 28 |)=0:Curv|eStyle%(|
|00001630| 41 25 29 3d 30 0d 06 a4 | 16 f2 73 65 74 73 74 79 |A%)=0...|..setsty|
|00001640| 6c 65 69 63 6f 6e 73 28 | 41 25 29 0d 06 ae 29 f2 |leicons(|A%)...).|
|00001650| 73 65 74 76 61 72 69 63 | 6f 6e 28 44 61 74 61 46 |setvaric|on(DataF|
|00001660| 69 6c 65 48 25 2c 44 61 | 74 61 46 69 6c 65 24 28 |ileH%,Da|taFile$(|
|00001670| 41 25 29 29 0d 06 b8 08 | ed 20 41 25 0d 06 c2 05 |A%))....|. A%....|
|00001680| e1 0d 06 cc 05 3a 0d 06 | d6 2e dd 20 a4 69 63 6f |.....:..|... .ico|
|00001690| 6e 28 77 69 6e 64 6f 77 | 2c 78 31 2c 79 31 2c 78 |n(window|,x1,y1,x|
|000016a0| 32 2c 79 32 2c 66 6c 61 | 67 73 2c 69 31 2c 69 32 |2,y2,fla|gs,i1,i2|
|000016b0| 2c 69 33 29 0d 06 e0 0d | ea 20 68 61 6e 64 6c 65 |,i3)....|. handle|
|000016c0| 25 0d 06 ea 1e 21 62 6c | 6f 63 6b 25 3d 77 69 6e |%....!bl|ock%=win|
|000016d0| 64 6f 77 3a 62 6c 6f 63 | 6b 25 21 34 3d 78 31 0d |dow:bloc|k%!4=x1.|
|000016e0| 06 f4 1c 62 6c 6f 63 6b | 25 21 38 3d 79 31 3a 62 |...block|%!8=y1:b|
|000016f0| 6c 6f 63 6b 25 21 31 32 | 3d 78 32 0d 06 fe 20 62 |lock%!12|=x2... b|
|00001700| 6c 6f 63 6b 25 21 31 36 | 3d 79 32 3a 62 6c 6f 63 |lock%!16|=y2:bloc|
|00001710| 6b 25 21 32 30 3d 66 6c | 61 67 73 0d 07 08 1d 62 |k%!20=fl|ags....b|
|00001720| 6c 6f 63 6b 25 21 32 34 | 3d 69 31 3a 62 6c 6f 63 |lock%!24|=i1:bloc|
|00001730| 6b 25 21 32 38 3d 69 32 | 0d 07 12 10 62 6c 6f 63 |k%!28=i2|....bloc|
|00001740| 6b 25 21 33 32 3d 69 33 | 0d 07 1c 2a c8 99 20 22 |k%!32=i3|...*.. "|
|00001750| 57 69 6d 70 5f 43 72 65 | 61 74 65 49 63 6f 6e 22 |Wimp_Cre|ateIcon"|
|00001760| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 68 61 6e 64 6c |,,block%| . handl|
|00001770| 65 25 0d 07 26 0c 3d 68 | 61 6e 64 6c 65 25 0d 07 |e%..&.=h|andle%..|
|00001780| 30 05 3a 0d 07 3a 0c dd | 20 f2 5f 50 6f 6c 6c 0d |0.:..:..| ._Poll.|
|00001790| 07 44 0f 6d 61 73 6b 25 | 3d 26 31 38 33 31 0d 07 |.D.mask%|=&1831..|
|000017a0| 4e 29 c8 99 20 22 57 69 | 6d 70 5f 50 6f 6c 6c 22 |N).. "Wi|mp_Poll"|
|000017b0| 2c 6d 61 73 6b 25 2c 62 | 6c 6f 63 6b 25 20 b8 20 |,mask%,b|lock% . |
|000017c0| 72 65 61 73 6f 6e 25 0d | 07 58 10 c8 8e 20 72 65 |reason%.|.X... re|
|000017d0| 61 73 6f 6e 25 20 ca 0d | 07 62 1e 20 20 c9 20 31 |ason% ..|.b.  . 1|
|000017e0| 3a 20 f2 72 65 64 72 61 | 77 5f 77 69 6e 28 62 6c |: .redra|w_win(bl|
|000017f0| 6f 63 6b 25 29 0d 07 6c | 1c 20 20 c9 20 32 3a 20 |ock%)..l|.  . 2: |
|00001800| f2 6f 70 65 6e 5f 77 69 | 6e 28 62 6c 6f 63 6b 25 |.open_wi|n(block%|
|00001810| 29 0d 07 76 1d 20 20 c9 | 20 33 3a 20 f2 63 6c 6f |)..v.  .| 3: .clo|
|00001820| 73 65 5f 77 69 6e 28 62 | 6c 6f 63 6b 25 29 0d 07 |se_win(b|lock%)..|
|00001830| 80 19 20 20 c9 20 36 3a | 20 f2 6d 6f 75 73 65 28 |..  . 6:| .mouse(|
|00001840| 62 6c 6f 63 6b 25 29 0d | 07 8a 20 20 20 c9 20 37 |block%).|..   . 7|
|00001850| 3a 20 f2 75 73 65 72 64 | 72 61 67 64 6f 6e 65 28 |: .userd|ragdone(|
|00001860| 62 6c 6f 63 6b 25 29 0d | 07 94 17 20 20 c9 20 38 |block%).|...  . 8|
|00001870| 3a 20 f2 6b 65 79 28 62 | 6c 6f 63 6b 25 29 0d 07 |: .key(b|lock%)..|
|00001880| 9e 29 20 20 c9 20 39 3a | 20 f2 6d 65 6e 75 73 65 |.)  . 9:| .menuse|
|00001890| 6c 65 63 74 28 62 6c 6f | 63 6b 25 21 30 2c 62 6c |lect(blo|ck%!0,bl|
|000018a0| 6f 63 6b 25 21 34 29 0d | 07 a8 1e 20 20 c9 20 31 |ock%!4).|...  . 1|
|000018b0| 37 2c 31 38 3a f2 6d 65 | 73 73 61 67 65 28 62 6c |7,18:.me|ssage(bl|
|000018c0| 6f 63 6b 25 29 0d 07 b2 | 19 20 20 c9 20 31 39 3a |ock%)...|.  . 19:|
|000018d0| f2 6e 6f 61 63 6b 28 62 | 6c 6f 63 6b 25 29 0d 07 |.noack(b|lock%)..|
|000018e0| bc 05 cb 0d 07 c6 05 e1 | 0d 07 d0 05 3a 0d 07 da |........|....:...|
|000018f0| 15 dd 20 f2 72 65 64 72 | 61 77 5f 77 69 6e 28 62 |.. .redr|aw_win(b|
|00001900| 25 29 0d 07 e4 11 ea 20 | 77 69 6e 64 25 2c 6d 6f |%)..... |wind%,mo|
|00001910| 72 65 25 0d 07 ee 0e 77 | 69 6e 64 25 3d 62 25 21 |re%....w|ind%=b%!|
|00001920| 30 0d 07 f8 26 c8 99 20 | 22 57 69 6d 70 5f 52 65 |0...&.. |"Wimp_Re|
|00001930| 64 72 61 77 57 69 6e 64 | 6f 77 22 2c 2c 62 25 20 |drawWind|ow",,b% |
|00001940| b8 20 6d 6f 72 65 25 0d | 08 02 0c c8 95 20 6d 6f |. more%.|..... mo|
|00001950| 72 65 25 0d 08 0c 26 c8 | 99 20 22 57 69 6d 70 5f |re%...&.|. "Wimp_|
|00001960| 47 65 74 52 65 63 74 61 | 6e 67 6c 65 22 2c 2c 62 |GetRecta|ngle",,b|
|00001970| 25 20 b8 20 6d 6f 72 65 | 25 0d 08 16 05 ce 0d 08 |% . more|%.......|
|00001980| 20 05 e1 0d 08 2a 05 3a | 0d 08 34 13 dd 20 f2 6f | ....*.:|..4.. .o|
|00001990| 70 65 6e 5f 77 69 6e 28 | 62 25 29 0d 08 3e 1c c8 |pen_win(|b%)..>..|
|000019a0| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|000019b0| 6f 77 22 2c 2c 62 25 0d | 08 48 05 e1 0d 08 52 05 |ow",,b%.|.H....R.|
|000019c0| 3a 0d 08 5c 14 dd 20 f2 | 63 6c 6f 73 65 5f 77 69 |:..\.. .|close_wi|
|000019d0| 6e 28 62 25 29 0d 08 66 | 08 ea 20 41 25 0d 08 70 |n(b%)..f|.. A%..p|
|000019e0| 16 e3 20 41 25 3d 31 20 | b8 20 4d 61 78 46 69 6c |.. A%=1 |. MaxFil|
|000019f0| 65 73 25 0d 08 7a 48 e7 | 20 62 25 21 30 3d 4d 6f |es%..zH.| b%!0=Mo|
|00001a00| 64 65 6c 25 28 41 25 29 | 20 8c 20 77 69 6e 64 25 |del%(A%)| . wind%|
|00001a10| 3d 44 61 74 61 53 65 74 | 25 28 41 25 29 3a f2 64 |=DataSet|%(A%):.d|
|00001a20| 65 73 65 6c 65 63 74 69 | 63 6f 6e 28 44 69 73 70 |eselecti|con(Disp|
|00001a30| 6c 61 79 4d 6f 64 65 6c | 48 25 29 0d 08 84 08 ed |layModel|H%).....|
|00001a40| 20 41 25 0d 08 8e 1d c8 | 99 20 22 57 69 6d 70 5f | A%.....|. "Wimp_|
|00001a50| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 62 25 |CloseWin|dow",,b%|
|00001a60| 0d 08 98 05 e1 0d 08 a2 | 05 3a 0d 08 ac 10 dd 20 |........|.:..... |
|00001a70| f2 6d 6f 75 73 65 28 62 | 25 29 0d 08 b6 1d ea 20 |.mouse(b|%)..... |
|00001a80| 62 75 74 74 6f 6e 73 25 | 2c 77 69 6e 64 25 2c 69 |buttons%|,wind%,i|
|00001a90| 63 6f 6e 25 2c 41 25 0d | 08 c0 29 62 75 74 74 6f |con%,A%.|..)butto|
|00001aa0| 6e 73 25 3d 62 25 21 38 | 3a 77 69 6e 64 25 3d 62 |ns%=b%!8|:wind%=b|
|00001ab0| 25 21 31 32 3a 69 63 6f | 6e 25 3d 62 25 21 31 36 |%!12:ico|n%=b%!16|
|00001ac0| 0d 08 ca 1c e7 20 62 75 | 74 74 6f 6e 73 25 3d 32 |..... bu|ttons%=2|
|00001ad0| 20 8c 20 f2 6d 65 6e 75 | 28 62 25 29 0d 08 d4 1f | . .menu|(b%)....|
|00001ae0| e7 20 62 75 74 74 6f 6e | 73 25 3d 34 20 84 20 62 |. button|s%=4 . b|
|00001af0| 75 74 74 6f 6e 73 25 3d | 31 20 8c 0d 08 de 16 e3 |uttons%=|1 ......|
|00001b00| 20 41 25 3d 31 20 b8 20 | 4d 61 78 46 69 6c 65 73 | A%=1 . |MaxFiles|
|00001b10| 25 0d 08 e8 3d e7 20 77 | 69 6e 64 25 3d 44 61 74 |%...=. w|ind%=Dat|
|00001b20| 61 53 65 74 25 28 41 25 | 29 20 8c 20 f2 75 70 64 |aSet%(A%|) . .upd|
|00001b30| 61 74 65 5f 64 61 74 61 | 5f 69 63 6f 6e 73 28 77 |ate_data|_icons(w|
|00001b40| 69 6e 64 25 2c 69 63 6f | 6e 25 2c 41 25 29 0d 08 |ind%,ico|n%,A%)..|
|00001b50| f2 30 e7 20 77 69 6e 64 | 25 3d 4d 6f 64 65 6c 25 |.0. wind|%=Model%|
|00001b60| 28 41 25 29 20 8c 20 f2 | 67 65 74 6d 6f 64 65 6c |(A%) . .|getmodel|
|00001b70| 76 61 72 73 28 69 63 6f | 6e 25 2c 41 25 29 0d 08 |vars(ico|n%,A%)..|
|00001b80| fc 08 ed 20 41 25 0d 09 | 06 0e c8 8e 20 77 69 6e |... A%..|.... win|
|00001b90| 64 25 20 ca 0d 09 10 5d | c9 20 2d 32 3a e7 20 69 |d% ....]|. -2:. i|
|00001ba0| 63 6f 6e 25 3d 73 69 63 | 6f 6e 25 20 8c 20 e7 20 |con%=sic|on% . . |
|00001bb0| 44 61 74 61 53 65 74 73 | 25 3e 30 20 8c 20 f2 6f |DataSets|%>0 . .o|
|00001bc0| 70 65 6e 77 69 6e 64 6f | 77 28 53 63 61 6c 65 25 |penwindo|w(Scale%|
|00001bd0| 29 20 8b 20 f2 6d 6f 61 | 6e 28 22 4e 6f 20 64 61 |) . .moa|n("No da|
|00001be0| 74 61 20 73 65 74 73 20 | 6c 6f 61 64 65 64 21 22 |ta sets |loaded!"|
|00001bf0| 29 0d 09 1a 1a c9 20 53 | 63 61 6c 65 25 3a f2 67 |)..... S|cale%:.g|
|00001c00| 65 74 73 63 61 6c 65 76 | 61 72 73 0d 09 24 1c c9 |etscalev|ars..$..|
|00001c10| 20 4c 65 67 65 6e 64 25 | 3a f2 67 65 74 6c 65 67 | Legend%|:.getleg|
|00001c20| 65 6e 64 76 61 72 73 0d | 09 2e 05 cb 0d 09 38 05 |endvars.|......8.|
|00001c30| cd 0d 09 42 2a e7 20 69 | 63 6f 6e 25 3d 66 69 63 |...B*. i|con%=fic|
|00001c40| 6f 6e 25 20 80 20 28 62 | 75 74 74 6f 6e 73 25 20 |on% . (b|uttons% |
|00001c50| 80 20 26 35 30 29 3c 3e | 30 20 8c 0d 09 4c 12 21 |. &50)<>|0 ...L.!|
|00001c60| 62 6c 6f 63 6b 32 25 3d | 66 69 6c 65 25 0d 09 56 |block2%=|file%..V|
|00001c70| 25 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |%.. "Wim|p_GetWin|
|00001c80| 64 6f 77 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |dowState|",,block|
|00001c90| 32 25 0d 09 60 1d 77 65 | 78 25 3d 62 6c 6f 63 6b |2%..`.we|x%=block|
|00001ca0| 32 25 21 34 2d 62 6c 6f | 63 6b 32 25 21 32 30 0d |2%!4-blo|ck2%!20.|
|00001cb0| 09 6a 1e 77 65 79 25 3d | 62 6c 6f 63 6b 32 25 21 |.j.wey%=|block2%!|
|00001cc0| 31 36 2d 62 6c 6f 63 6b | 32 25 21 32 34 0d 09 74 |16-block|2%!24..t|
|00001cd0| 14 62 6c 6f 63 6b 32 25 | 21 34 3d 66 69 63 6f 6e |.block2%|!4=ficon|
|00001ce0| 25 0d 09 7e 23 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%..~#.. |"Wimp_Ge|
|00001cf0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|00001d00| 63 6b 32 25 0d 09 88 1f | 62 6c 6f 63 6b 32 25 21 |ck2%....|block2%!|
|00001d10| 30 3d 66 69 6c 65 25 3a | 62 6c 6f 63 6b 32 25 21 |0=file%:|block2%!|
|00001d20| 34 3d 35 0d 09 92 37 62 | 6c 6f 63 6b 32 25 21 38 |4=5...7b|lock2%!8|
|00001d30| 3d 62 6c 6f 63 6b 32 25 | 21 38 2b 77 65 78 25 3a |=block2%|!8+wex%:|
|00001d40| 62 6c 6f 63 6b 32 25 21 | 31 32 3d 62 6c 6f 63 6b |block2%!|12=block|
|00001d50| 32 25 21 31 32 2b 77 65 | 79 25 0d 09 9c 39 62 6c |2%!12+we|y%...9bl|
|00001d60| 6f 63 6b 32 25 21 31 36 | 3d 62 6c 6f 63 6b 32 25 |ock2%!16|=block2%|
|00001d70| 21 31 36 2b 77 65 78 25 | 3a 62 6c 6f 63 6b 32 25 |!16+wex%|:block2%|
|00001d80| 21 32 30 3d 62 6c 6f 63 | 6b 32 25 21 32 30 2b 77 |!20=bloc|k2%!20+w|
|00001d90| 65 79 25 0d 09 a6 1d 62 | 6c 6f 63 6b 32 25 21 32 |ey%....b|lock2%!2|
|00001da0| 34 3d 30 3a 62 6c 6f 63 | 6b 32 25 21 32 38 3d 30 |4=0:bloc|k2%!28=0|
|00001db0| 0d 09 b0 2d 62 6c 6f 63 | 6b 32 25 21 33 32 3d 26 |...-bloc|k2%!32=&|
|00001dc0| 37 46 46 46 46 46 46 46 | 3a 62 6c 6f 63 6b 32 25 |7FFFFFFF|:block2%|
|00001dd0| 21 33 36 3d 26 37 46 46 | 46 46 46 46 46 0d 09 ba |!36=&7FF|FFFFF...|
|00001de0| 1e c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |... "Wim|p_DragBo|
|00001df0| 78 22 2c 2c 62 6c 6f 63 | 6b 32 25 0d 09 c4 37 cc |x",,bloc|k2%...7.|
|00001e00| 20 e7 20 69 63 6f 6e 25 | 3d 6f 6b 25 20 80 20 28 | . icon%|=ok% . (|
|00001e10| 62 75 74 74 6f 6e 73 25 | 20 80 20 35 29 3e 30 20 |buttons%| . 5)>0 |
|00001e20| 8c 20 f2 73 61 76 65 69 | 74 28 24 66 6e 61 6d 65 |. .savei|t($fname|
|00001e30| 25 29 0d 09 ce 05 cd 0d | 09 d8 05 e1 0d 09 e2 05 |%)......|........|
|00001e40| 3a 0d 09 ec 25 dd 20 f2 | 75 70 64 61 74 65 5f 64 |:...%. .|update_d|
|00001e50| 61 74 61 5f 69 63 6f 6e | 73 28 77 25 2c 69 63 6f |ata_icon|s(w%,ico|
|00001e60| 6e 25 2c 41 25 29 0d 09 | f6 0b ea 20 77 69 6e 64 |n%,A%)..|... wind|
|00001e70| 25 0d 0a 00 0c 77 69 6e | 64 25 3d 77 25 0d 0a 0a |%....win|d%=w%...|
|00001e80| 0e c8 8e 20 69 63 6f 6e | 25 20 ca 0d 0a 14 2b c9 |... icon|% ....+.|
|00001e90| 20 38 2c 39 2c 31 30 2c | 31 31 2c 31 32 2c 31 33 | 8,9,10,|11,12,13|
|00001ea0| 2c 31 34 2c 31 35 2c 31 | 36 2c 31 37 2c 31 38 2c |,14,15,1|6,17,18,|
|00001eb0| 31 39 2c 32 30 3a 0d 0a | 1e 7b e7 20 a4 69 63 6f |19,20:..|.{. .ico|
|00001ec0| 6e 5f 73 65 6c 65 63 74 | 65 64 28 69 63 6f 6e 25 |n_select|ed(icon%|
|00001ed0| 29 20 8c 20 53 74 79 6c | 65 46 6c 61 67 25 28 69 |) . Styl|eFlag%(i|
|00001ee0| 63 6f 6e 25 2d 37 2c 41 | 25 29 3d b9 3a 50 6f 69 |con%-7,A|%)=.:Poi|
|00001ef0| 6e 74 53 74 79 6c 65 25 | 28 41 25 29 3d 69 63 6f |ntStyle%|(A%)=ico|
|00001f00| 6e 25 2d 37 20 8b 20 53 | 74 79 6c 65 46 6c 61 67 |n%-7 . S|tyleFlag|
|00001f10| 25 28 69 63 6f 6e 25 2d | 37 2c 41 25 29 3d a3 3a |%(icon%-|7,A%)=.:|
|00001f20| 50 6f 69 6e 74 53 74 79 | 6c 65 25 28 41 25 29 3d |PointSty|le%(A%)=|
|00001f30| 30 0d 0a 28 12 c9 20 32 | 33 2c 32 34 2c 32 35 2c |0..(.. 2|3,24,25,|
|00001f40| 32 36 3a 0d 0a 32 7b e7 | 20 a4 69 63 6f 6e 5f 73 |26:..2{.| .icon_s|
|00001f50| 65 6c 65 63 74 65 64 28 | 69 63 6f 6e 25 29 20 8c |elected(|icon%) .|
|00001f60| 20 53 74 79 6c 65 46 6c | 61 67 25 28 69 63 6f 6e | StyleFl|ag%(icon|
|00001f70| 25 2d 39 2c 41 25 29 3d | b9 3a 43 75 72 76 65 53 |%-9,A%)=|.:CurveS|
|00001f80| 74 79 6c 65 25 28 41 25 | 29 3d 69 63 6f 6e 25 2d |tyle%(A%|)=icon%-|
|00001f90| 39 20 8b 20 53 74 79 6c | 65 46 6c 61 67 25 28 69 |9 . Styl|eFlag%(i|
|00001fa0| 63 6f 6e 25 2d 39 2c 41 | 25 29 3d a3 3a 43 75 72 |con%-9,A|%)=.:Cur|
|00001fb0| 76 65 53 74 79 6c 65 25 | 28 41 25 29 3d 30 0d 0a |veStyle%|(A%)=0..|
|00001fc0| 3c 10 c9 20 55 73 65 4d | 6f 64 65 6c 48 25 0d 0a |<.. UseM|odelH%..|
|00001fd0| 46 1e 20 e7 20 a4 69 63 | 6f 6e 5f 73 65 6c 65 63 |F. . .ic|on_selec|
|00001fe0| 74 65 64 28 69 63 6f 6e | 25 29 20 8c 0d 0a 50 26 |ted(icon|%) ...P&|
|00001ff0| 20 20 f2 63 61 6e 73 65 | 6c 65 63 74 69 63 6f 6e |  .canse|lecticon|
|00002000| 28 44 69 73 70 6c 61 79 | 4d 6f 64 65 6c 48 25 2c |(Display|ModelH%,|
|00002010| b9 29 0d 0a 5a 25 20 20 | f2 63 61 6e 73 65 6c 65 |.)..Z%  |.cansele|
|00002020| 63 74 69 63 6f 6e 28 4d | 6f 64 65 6c 43 75 72 76 |cticon(M|odelCurv|
|00002030| 65 46 48 25 2c b9 29 0d | 0a 64 25 20 20 f2 63 61 |eFH%,.).|.d%  .ca|
|00002040| 6e 73 65 6c 65 63 74 69 | 63 6f 6e 28 4d 6f 64 65 |nselecti|con(Mode|
|00002050| 6c 43 75 72 76 65 44 48 | 25 2c b9 29 0d 0a 6e 15 |lCurveDH|%,.)..n.|
|00002060| 20 20 55 73 65 4d 6f 64 | 65 6c 25 28 41 25 29 3d |  UseMod|el%(A%)=|
|00002070| b9 0d 0a 78 40 20 20 e7 | 20 a4 69 63 6f 6e 5f 73 |...x@  .| .icon_s|
|00002080| 65 6c 65 63 74 65 64 28 | 44 69 73 70 6c 61 79 4d |elected(|DisplayM|
|00002090| 6f 64 65 6c 48 25 29 20 | 8c 20 f2 6f 70 65 6e 77 |odelH%) |. .openw|
|000020a0| 69 6e 64 6f 77 28 4d 6f | 64 65 6c 25 28 41 25 29 |indow(Mo|del%(A%)|
|000020b0| 29 0d 0a 82 06 20 cc 0d | 0a 8c 26 20 20 f2 63 61 |).... ..|..&  .ca|
|000020c0| 6e 73 65 6c 65 63 74 69 | 63 6f 6e 28 44 69 73 70 |nselecti|con(Disp|
|000020d0| 6c 61 79 4d 6f 64 65 6c | 48 25 2c a3 29 0d 0a 96 |layModel|H%,.)...|
|000020e0| 25 20 20 f2 63 61 6e 73 | 65 6c 65 63 74 69 63 6f |%  .cans|electico|
|000020f0| 6e 28 4d 6f 64 65 6c 43 | 75 72 76 65 46 48 25 2c |n(ModelC|urveFH%,|
|00002100| a3 29 0d 0a a0 25 20 20 | f2 63 61 6e 73 65 6c 65 |.)...%  |.cansele|
|00002110| 63 74 69 63 6f 6e 28 4d | 6f 64 65 6c 43 75 72 76 |cticon(M|odelCurv|
|00002120| 65 44 48 25 2c a3 29 0d | 0a aa 15 20 20 55 73 65 |eDH%,.).|...  Use|
|00002130| 4d 6f 64 65 6c 25 28 41 | 25 29 3d a3 0d 0a b4 1e |Model%(A|%)=.....|
|00002140| 20 20 f2 63 6c 6f 73 65 | 77 69 6e 64 6f 77 28 4d |  .close|window(M|
|00002150| 6f 64 65 6c 25 28 41 25 | 29 29 0d 0a be 06 20 cd |odel%(A%|)).... .|
|00002160| 0d 0a c8 2a c9 20 4d 6f | 64 65 6c 43 75 72 76 65 |...*. Mo|delCurve|
|00002170| 46 48 25 3a 4d 6f 64 65 | 6c 43 75 72 76 65 53 74 |FH%:Mode|lCurveSt|
|00002180| 79 6c 65 25 28 41 25 29 | 3d 30 0d 0a d2 2a c9 20 |yle%(A%)|=0...*. |
|00002190| 4d 6f 64 65 6c 43 75 72 | 76 65 44 48 25 3a 4d 6f |ModelCur|veDH%:Mo|
|000021a0| 64 65 6c 43 75 72 76 65 | 53 74 79 6c 65 25 28 41 |delCurve|Style%(A|
|000021b0| 25 29 3d 31 0d 0a dc 33 | c9 20 44 69 73 70 6c 61 |%)=1...3|. Displa|
|000021c0| 79 4d 6f 64 65 6c 48 25 | 3a e7 20 a4 69 63 6f 6e |yModelH%|:. .icon|
|000021d0| 5f 73 65 6c 65 63 74 65 | 64 28 55 73 65 4d 6f 64 |_selecte|d(UseMod|
|000021e0| 65 6c 48 25 29 20 8c 0d | 0a e6 65 e7 20 a4 69 63 |elH%) ..|..e. .ic|
|000021f0| 6f 6e 5f 73 65 6c 65 63 | 74 65 64 28 69 63 6f 6e |on_selec|ted(icon|
|00002200| 25 29 20 8c 20 f2 6f 70 | 65 6e 77 69 6e 64 6f 77 |%) . .op|enwindow|
|00002210| 28 4d 6f 64 65 6c 25 28 | 41 25 29 29 20 8b 20 f2 |(Model%(|A%)) . .|
|00002220| 63 6c 6f 73 65 77 69 6e | 64 6f 77 28 4d 6f 64 65 |closewin|dow(Mode|
|00002230| 6c 25 28 41 25 29 29 3a | f2 64 65 73 65 6c 65 63 |l%(A%)):|.deselec|
|00002240| 74 69 63 6f 6e 28 69 63 | 6f 6e 25 29 0d 0a f0 05 |ticon(ic|on%)....|
|00002250| cd 0d 0a fa 05 cb 0d 0b | 04 05 e1 0d 0b 0e 05 3a |........|.......:|
|00002260| 0d 0b 18 18 dd 20 f2 73 | 65 74 73 74 79 6c 65 69 |..... .s|etstylei|
|00002270| 63 6f 6e 73 28 42 25 29 | 0d 0b 22 08 ea 20 41 25 |cons(B%)|..".. A%|
|00002280| 0d 0b 2c 14 e3 20 41 25 | 3d 31 20 b8 20 53 74 79 |..,.. A%|=1 . Sty|
|00002290| 6c 65 73 25 0d 0b 36 51 | e7 20 53 74 79 6c 65 46 |les%..6Q|. StyleF|
|000022a0| 6c 61 67 25 28 41 25 2c | 42 25 29 3d b9 20 8c 20 |lag%(A%,|B%)=. . |
|000022b0| f2 73 65 6c 65 63 74 69 | 63 6f 6e 28 53 74 79 6c |.selecti|con(Styl|
|000022c0| 65 48 25 28 41 25 29 29 | 20 8b 20 f2 64 65 73 65 |eH%(A%))| . .dese|
|000022d0| 6c 65 63 74 69 63 6f 6e | 28 53 74 79 6c 65 48 25 |lecticon|(StyleH%|
|000022e0| 28 41 25 29 29 0d 0b 40 | 08 ed 20 41 25 0d 0b 4a |(A%))..@|.. A%..J|
|000022f0| 17 e7 20 55 73 65 4d 6f | 64 65 6c 25 28 42 25 29 |.. UseMo|del%(B%)|
|00002300| 3d b9 20 8c 0d 0b 54 1c | 20 f2 73 65 6c 65 63 74 |=. ...T.| .select|
|00002310| 69 63 6f 6e 28 55 73 65 | 4d 6f 64 65 6c 48 25 29 |icon(Use|ModelH%)|
|00002320| 0d 0b 5e 25 20 f2 63 61 | 6e 73 65 6c 65 63 74 69 |..^% .ca|nselecti|
|00002330| 63 6f 6e 28 44 69 73 70 | 6c 61 79 4d 6f 64 65 6c |con(Disp|layModel|
|00002340| 48 25 2c b9 29 0d 0b 68 | 24 20 f2 63 61 6e 73 65 |H%,.)..h|$ .canse|
|00002350| 6c 65 63 74 69 63 6f 6e | 28 4d 6f 64 65 6c 43 75 |lecticon|(ModelCu|
|00002360| 72 76 65 46 48 25 2c b9 | 29 0d 0b 72 24 20 f2 63 |rveFH%,.|)..r$ .c|
|00002370| 61 6e 73 65 6c 65 63 74 | 69 63 6f 6e 28 4d 6f 64 |anselect|icon(Mod|
|00002380| 65 6c 43 75 72 76 65 44 | 48 25 2c b9 29 0d 0b 7c |elCurveD|H%,.)..||
|00002390| 1e 20 c8 8e 20 4d 6f 64 | 65 6c 43 75 72 76 65 53 |. .. Mod|elCurveS|
|000023a0| 74 79 6c 65 25 28 42 25 | 29 20 ca 0d 0b 86 25 20 |tyle%(B%|) ....% |
|000023b0| 20 c9 20 30 3a 20 f2 73 | 65 6c 65 63 74 69 63 6f | . 0: .s|electico|
|000023c0| 6e 28 4d 6f 64 65 6c 43 | 75 72 76 65 46 48 25 29 |n(ModelC|urveFH%)|
|000023d0| 0d 0b 90 25 20 20 c9 20 | 31 3a 20 f2 73 65 6c 65 |...%  . |1: .sele|
|000023e0| 63 74 69 63 6f 6e 28 4d | 6f 64 65 6c 43 75 72 76 |cticon(M|odelCurv|
|000023f0| 65 44 48 25 29 0d 0b 9a | 06 20 cb 0d 0b a4 05 cc |eDH%)...|. ......|
|00002400| 0d 0b ae 1e 20 f2 64 65 | 73 65 6c 65 63 74 69 63 |.... .de|selectic|
|00002410| 6f 6e 28 55 73 65 4d 6f | 64 65 6c 48 25 29 0d 0b |on(UseMo|delH%)..|
|00002420| b8 21 20 f2 64 65 73 65 | 6c 65 63 74 69 63 6f 6e |.! .dese|lecticon|
|00002430| 28 4d 6f 64 65 6c 43 75 | 72 76 65 46 48 25 29 0d |(ModelCu|rveFH%).|
|00002440| 0b c2 21 20 f2 64 65 73 | 65 6c 65 63 74 69 63 6f |..! .des|electico|
|00002450| 6e 28 4d 6f 64 65 6c 43 | 75 72 76 65 44 48 25 29 |n(ModelC|urveDH%)|
|00002460| 0d 0b cc 25 20 f2 63 61 | 6e 73 65 6c 65 63 74 69 |...% .ca|nselecti|
|00002470| 63 6f 6e 28 44 69 73 70 | 6c 61 79 4d 6f 64 65 6c |con(Disp|layModel|
|00002480| 48 25 2c a3 29 0d 0b d6 | 24 20 f2 63 61 6e 73 65 |H%,.)...|$ .canse|
|00002490| 6c 65 63 74 69 63 6f 6e | 28 4d 6f 64 65 6c 43 75 |lecticon|(ModelCu|
|000024a0| 72 76 65 46 48 25 2c a3 | 29 0d 0b e0 24 20 f2 63 |rveFH%,.|)...$ .c|
|000024b0| 61 6e 73 65 6c 65 63 74 | 69 63 6f 6e 28 4d 6f 64 |anselect|icon(Mod|
|000024c0| 65 6c 43 75 72 76 65 44 | 48 25 2c a3 29 0d 0b ea |elCurveD|H%,.)...|
|000024d0| 05 cd 0d 0b f4 05 e1 0d | 0b fe 05 3a 0d 0c 08 25 |........|...:...%|
|000024e0| dd 20 f2 63 6c 65 61 72 | 73 74 79 6c 65 69 63 6f |. .clear|styleico|
|000024f0| 6e 73 28 42 25 29 3a ea | 20 41 25 2c 77 69 6e 64 |ns(B%):.| A%,wind|
|00002500| 25 0d 0c 12 16 77 69 6e | 64 25 3d 44 61 74 61 53 |%....win|d%=DataS|
|00002510| 65 74 25 28 42 25 29 0d | 0c 1c 34 e3 20 41 25 3d |et%(B%).|..4. A%=|
|00002520| 31 20 b8 20 53 74 79 6c | 65 73 25 3a f2 64 65 73 |1 . Styl|es%:.des|
|00002530| 65 6c 65 63 74 69 63 6f | 6e 28 53 74 79 6c 65 48 |electico|n(StyleH|
|00002540| 25 28 41 25 29 29 3a ed | 20 41 25 0d 0c 26 3d f2 |%(A%)):.| A%..&=.|
|00002550| 64 65 73 65 6c 65 63 74 | 69 63 6f 6e 28 4d 6f 64 |deselect|icon(Mod|
|00002560| 65 6c 43 75 72 76 65 46 | 48 25 29 3a f2 64 65 73 |elCurveF|H%):.des|
|00002570| 65 6c 65 63 74 69 63 6f | 6e 28 4d 6f 64 65 6c 43 |electico|n(ModelC|
|00002580| 75 72 76 65 44 48 25 29 | 0d 0c 30 05 e1 0d 0c 3a |urveDH%)|..0....:|
|00002590| 05 3a 0d 0c 44 24 dd 20 | f2 63 6c 65 61 72 73 74 |.:..D$. |.clearst|
|000025a0| 79 6c 65 76 61 72 73 28 | 42 25 29 3a ea 20 41 25 |ylevars(|B%):. A%|
|000025b0| 2c 77 69 6e 64 25 0d 0c | 4e 16 77 69 6e 64 25 3d |,wind%..|N.wind%=|
|000025c0| 44 61 74 61 53 65 74 25 | 28 42 25 29 0d 0c 58 48 |DataSet%|(B%)..XH|
|000025d0| e3 20 41 25 3d 31 20 b8 | 20 53 74 79 6c 65 73 25 |. A%=1 .| Styles%|
|000025e0| 3a 53 74 79 6c 65 46 6c | 61 67 25 28 41 25 2c 42 |:StyleFl|ag%(A%,B|
|000025f0| 25 29 3d a3 3a f2 64 65 | 73 65 6c 65 63 74 69 63 |%)=.:.de|selectic|
|00002600| 6f 6e 28 53 74 79 6c 65 | 48 25 28 41 25 29 29 3a |on(Style|H%(A%)):|
|00002610| ed 20 41 25 0d 0c 62 1a | 4d 6f 64 65 6c 43 75 72 |. A%..b.|ModelCur|
|00002620| 76 65 53 74 79 6c 65 25 | 28 42 25 29 3d 30 0d 0c |veStyle%|(B%)=0..|
|00002630| 6c 05 e1 0d 0c 76 05 3a | 0d 0c 80 1c dd 20 f2 64 |l....v.:|..... .d|
|00002640| 65 73 65 6c 65 63 74 69 | 63 6f 6e 28 48 61 6e 64 |eselecti|con(Hand|
|00002650| 6c 65 25 29 0d 0c 8a 14 | 69 63 6f 6e 62 6c 6b 25 |le%)....|iconblk%|
|00002660| 21 30 3d 77 69 6e 64 25 | 0d 0c 94 16 69 63 6f 6e |!0=wind%|....icon|
|00002670| 62 6c 6b 25 21 34 3d 48 | 61 6e 64 6c 65 25 0d 0c |blk%!4=H|andle%..|
|00002680| 9e 10 69 63 6f 6e 62 6c | 6b 25 21 38 3d 30 0d 0c |..iconbl|k%!8=0..|
|00002690| a8 17 69 63 6f 6e 62 6c | 6b 25 21 31 32 3d 26 32 |..iconbl|k%!12=&2|
|000026a0| 30 30 30 30 30 0d 0c b2 | 24 c8 99 20 22 57 69 6d |00000...|$.. "Wim|
|000026b0| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|000026c0| 2c 69 63 6f 6e 62 6c 6b | 25 0d 0c bc 05 e1 0d 0c |,iconblk|%.......|
|000026d0| c6 05 3a 0d 0c d0 1a dd | 20 f2 73 65 6c 65 63 74 |..:.....| .select|
|000026e0| 69 63 6f 6e 28 48 61 6e | 64 6c 65 25 29 0d 0c da |icon(Han|dle%)...|
|000026f0| 14 69 63 6f 6e 62 6c 6b | 25 21 30 3d 77 69 6e 64 |.iconblk|%!0=wind|
|00002700| 25 0d 0c e4 16 69 63 6f | 6e 62 6c 6b 25 21 34 3d |%....ico|nblk%!4=|
|00002710| 48 61 6e 64 6c 65 25 0d | 0c ee 16 69 63 6f 6e 62 |Handle%.|...iconb|
|00002720| 6c 6b 25 21 38 3d 26 32 | 30 30 30 30 30 0d 0c f8 |lk%!8=&2|00000...|
|00002730| 17 69 63 6f 6e 62 6c 6b | 25 21 31 32 3d 26 32 30 |.iconblk|%!12=&20|
|00002740| 30 30 30 30 0d 0d 02 24 | c8 99 20 22 57 69 6d 70 |0000...$|.. "Wimp|
|00002750| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00002760| 69 63 6f 6e 62 6c 6b 25 | 0d 0d 0c 05 e1 0d 0d 16 |iconblk%|........|
|00002770| 05 3a 0d 0d 20 1a dd 20 | f2 74 6f 67 67 6c 65 69 |.:.. .. |.togglei|
|00002780| 63 6f 6e 28 48 61 6e 64 | 6c 65 25 29 0d 0d 2a 14 |con(Hand|le%)..*.|
|00002790| 69 63 6f 6e 62 6c 6b 25 | 21 30 3d 77 69 6e 64 25 |iconblk%|!0=wind%|
|000027a0| 0d 0d 34 16 69 63 6f 6e | 62 6c 6b 25 21 34 3d 48 |..4.icon|blk%!4=H|
|000027b0| 61 6e 64 6c 65 25 0d 0d | 3e 16 69 63 6f 6e 62 6c |andle%..|>.iconbl|
|000027c0| 6b 25 21 38 3d 26 32 30 | 30 30 30 30 0d 0d 48 11 |k%!8=&20|0000..H.|
|000027d0| 69 63 6f 6e 62 6c 6b 25 | 21 31 32 3d 30 0d 0d 52 |iconblk%|!12=0..R|
|000027e0| 24 c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |$.. "Wim|p_SetIco|
|000027f0| 6e 53 74 61 74 65 22 2c | 2c 69 63 6f 6e 62 6c 6b |nState",|,iconblk|
|00002800| 25 0d 0d 5c 05 e1 0d 0d | 66 05 3a 0d 0d 70 1d dd |%..\....|f.:..p..|
|00002810| 20 a4 69 63 6f 6e 5f 73 | 65 6c 65 63 74 65 64 28 | .icon_s|elected(|
|00002820| 48 61 6e 64 6c 65 25 29 | 0d 0d 7a 0c ea 20 66 6c |Handle%)|..z.. fl|
|00002830| 61 67 73 25 0d 0d 84 14 | 69 63 6f 6e 62 6c 6b 25 |ags%....|iconblk%|
|00002840| 21 30 3d 77 69 6e 64 25 | 0d 0d 8e 16 69 63 6f 6e |!0=wind%|....icon|
|00002850| 62 6c 6b 25 21 34 3d 48 | 61 6e 64 6c 65 25 0d 0d |blk%!4=H|andle%..|
|00002860| 98 24 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |.$.. "Wi|mp_GetIc|
|00002870| 6f 6e 53 74 61 74 65 22 | 2c 2c 69 63 6f 6e 62 6c |onState"|,,iconbl|
|00002880| 6b 25 0d 0d a2 16 66 6c | 61 67 73 25 3d 69 63 6f |k%....fl|ags%=ico|
|00002890| 6e 62 6c 6b 25 21 32 34 | 0d 0d ac 24 3d 2d 28 28 |nblk%!24|...$=-((|
|000028a0| 66 6c 61 67 73 25 20 80 | 20 26 32 30 30 30 30 30 |flags% .| &200000|
|000028b0| 29 20 81 20 26 32 30 30 | 30 30 30 29 0d 0d b6 05 |) . &200|000)....|
|000028c0| 3a 0d 0d c0 24 dd 20 f2 | 63 61 6e 73 65 6c 65 63 |:...$. .|canselec|
|000028d0| 74 69 63 6f 6e 28 48 61 | 6e 64 6c 65 25 2c 53 74 |ticon(Ha|ndle%,St|
|000028e0| 61 74 65 25 29 0d 0d ca | 14 69 63 6f 6e 62 6c 6b |ate%)...|.iconblk|
|000028f0| 25 21 30 3d 77 69 6e 64 | 25 0d 0d d4 16 69 63 6f |%!0=wind|%....ico|
|00002900| 6e 62 6c 6b 25 21 34 3d | 48 61 6e 64 6c 65 25 0d |nblk%!4=|Handle%.|
|00002910| 0d de 10 e7 20 53 74 61 | 74 65 25 3d b9 20 8c 0d |.... Sta|te%=. ..|
|00002920| 0d e8 17 69 63 6f 6e 62 | 6c 6b 25 21 38 3d 26 37 |...iconb|lk%!8=&7|
|00002930| 30 30 30 30 30 30 0d 0d | f2 18 69 63 6f 6e 62 6c |000000..|..iconbl|
|00002940| 6b 25 21 31 32 3d 26 37 | 34 30 30 30 30 30 0d 0d |k%!12=&7|400000..|
|00002950| fc 05 cc 0d 0e 06 17 69 | 63 6f 6e 62 6c 6b 25 21 |.......i|conblk%!|
|00002960| 38 3d 26 32 34 30 30 30 | 30 30 0d 0e 10 18 69 63 |8=&24000|00....ic|
|00002970| 6f 6e 62 6c 6b 25 21 31 | 32 3d 26 37 34 30 30 30 |onblk%!1|2=&74000|
|00002980| 30 30 0d 0e 1a 05 cd 0d | 0e 24 24 c8 99 20 22 57 |00......|.$$.. "W|
|00002990| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|000029a0| 22 2c 2c 69 63 6f 6e 62 | 6c 6b 25 0d 0e 2e 05 e1 |",,iconb|lk%.....|
|000029b0| 0d 0e 38 05 3a 0d 0e 42 | 0f dd 20 f2 6d 65 6e 75 |..8.:..B|.. .menu|
|000029c0| 28 62 25 29 0d 0e 4c 10 | 6d 65 6e 75 5f 78 25 3d |(b%)..L.|menu_x%=|
|000029d0| 62 25 21 30 0d 0e 56 10 | 6d 65 6e 75 5f 79 25 3d |b%!0..V.|menu_y%=|
|000029e0| 62 25 21 34 0d 0e 60 14 | 6d 65 6e 75 5f 77 69 6e |b%!4..`.|menu_win|
|000029f0| 64 25 3d 62 25 21 31 32 | 0d 0e 6a 13 c8 8e 20 6d |d%=b%!12|..j... m|
|00002a00| 65 6e 75 5f 77 69 6e 64 | 25 20 ca 0d 0e 74 09 c9 |enu_wind|% ...t..|
|00002a10| 20 2d 32 3a 0d 0e 7e 2c | 20 f2 64 72 61 77 6d 65 | -2:..~,| .drawme|
|00002a20| 6e 75 28 31 2c 6d 65 6e | 75 25 2c 22 53 63 69 47 |nu(1,men|u%,"SciG|
|00002a30| 72 61 70 68 2c 49 6e 66 | 6f 2c 51 75 69 74 22 29 |raph,Inf|o,Quit")|
|00002a40| 0d 0e 88 31 20 c8 99 20 | 22 57 69 6d 70 5f 43 72 |...1 .. |"Wimp_Cr|
|00002a50| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 65 6e 75 25 |eateMenu|",,menu%|
|00002a60| 2b 34 2c 6d 65 6e 75 5f | 78 25 2d 36 34 2c 31 37 |+4,menu_|x%-64,17|
|00002a70| 36 0d 0e 92 0c c9 20 49 | 6e 66 6f 25 3a 0d 0e 9c |6..... I|nfo%:...|
|00002a80| 2c 20 f2 64 72 61 77 6d | 65 6e 75 28 31 2c 6d 65 |, .drawm|enu(1,me|
|00002a90| 6e 75 25 2c 22 53 63 69 | 47 72 61 70 68 2c 49 6e |nu%,"Sci|Graph,In|
|00002aa0| 66 6f 2c 51 75 69 74 22 | 29 0d 0e a6 32 20 c8 99 |fo,Quit"|)...2 ..|
|00002ab0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00002ac0| 75 22 2c 2c 6d 65 6e 75 | 25 2b 34 2c 6d 65 6e 75 |u",,menu|%+4,menu|
|00002ad0| 5f 78 25 2c 6d 65 6e 75 | 5f 79 25 0d 0e b0 05 7f |_x%,menu|_y%.....|
|00002ae0| 0d 0e ba 14 20 24 6d 65 | 6e 75 25 3d c4 32 30 30 |.... $me|nu%=.200|
|00002af0| 2c bd 30 29 0d 0e c4 1a | 20 24 28 6d 65 6e 75 25 |,.0)....| $(menu%|
|00002b00| 2b 32 30 30 29 3d c4 32 | 30 30 2c bd 30 29 0d 0e |+200)=.2|00,.0)..|
|00002b10| ce 2b 20 44 24 3d 22 20 | 23 20 2c 20 31 2c 20 32 |.+ D$=" |# , 1, 2|
|00002b20| 2c 20 33 2c 20 34 2c 20 | 35 2c 20 36 2c 20 37 2c |, 3, 4, |5, 6, 7,|
|00002b30| 20 38 2c 20 39 2c 31 30 | 22 0d 0e d8 55 20 f2 64 | 8, 9,10|"...U .d|
|00002b40| 72 61 77 6d 65 6e 75 28 | 32 2c 6d 65 6e 75 25 2c |rawmenu(|2,menu%,|
|00002b50| 22 53 63 69 47 72 61 70 | 68 2c 4c 65 67 65 6e 64 |"SciGrap|h,Legend|
|00002b60| 2c 44 61 74 61 20 73 74 | 79 6c 65 2c 50 6c 6f 74 |,Data st|yle,Plot|
|00002b70| 20 47 72 61 70 68 2c 44 | 65 6c 65 74 65 20 64 61 | Graph,D|elete da|
|00002b80| 74 61 2c 43 6c 65 61 72 | 20 41 6c 6c 22 29 0d 0e |ta,Clear| All")..|
|00002b90| e2 32 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.2 .. "W|imp_Crea|
|00002ba0| 74 65 4d 65 6e 75 22 2c | 2c 6d 65 6e 75 25 2b 34 |teMenu",|,menu%+4|
|00002bb0| 2c 6d 65 6e 75 5f 78 25 | 2c 6d 65 6e 75 5f 79 25 |,menu_x%|,menu_y%|
|00002bc0| 0d 0e ec 05 cb 0d 0e f6 | 05 e1 0d 0f 00 05 3a 0d |........|......:.|
|00002bd0| 0f 0a 19 dd 20 f2 64 72 | 61 77 6d 65 6e 75 28 68 |.... .dr|awmenu(h|
|00002be0| 25 2c 6d 25 2c 6d 24 29 | 0d 0f 14 18 ea 20 4c 24 |%,m%,m$)|..... L$|
|00002bf0| 2c 70 74 72 25 2c 6d 61 | 78 25 2c 54 24 2c 41 25 |,ptr%,ma|x%,T$,A%|
|00002c00| 0d 0f 1e 12 21 6d 25 3d | 68 25 3a 6d 25 3f 31 36 |....!m%=|h%:m%?16|
|00002c10| 3d 37 0d 0f 28 1b 6d 25 | 3f 31 37 3d 32 3a 6d 25 |=7..(.m%|?17=2:m%|
|00002c20| 3f 31 38 3d 37 3a 6d 25 | 3f 31 39 3d 30 0d 0f 32 |?18=7:m%|?19=0..2|
|00002c30| 0c 6d 25 21 32 34 3d 34 | 30 0d 0f 3c 16 6d 25 21 |.m%!24=4|0..<.m%!|
|00002c40| 32 38 3d 30 3a 70 74 72 | 25 3d 6d 25 2b 33 32 0d |28=0:ptr|%=m%+32.|
|00002c50| 0f 46 16 54 24 3d c0 6d | 24 2c a7 6d 24 2c 22 2c |.F.T$=.m|$,.m$,",|
|00002c60| 22 29 2d 31 29 0d 0f 50 | 19 24 28 6d 25 2b 34 29 |")-1)..P|.$(m%+4)|
|00002c70| 3d 54 24 3a 6d 61 78 25 | 3d a9 28 54 24 29 0d 0f |=T$:max%|=.(T$)..|
|00002c80| 5a 0d 6d 24 3d 6d 24 2b | 22 2c 22 0d 0f 64 0d c8 |Z.m$=m$+|","..d..|
|00002c90| 95 20 6d 24 3c 3e 22 22 | 0d 0f 6e 0f 41 25 3d a7 |. m$<>""|..n.A%=.|
|00002ca0| 6d 24 2c 22 2c 22 29 0d | 0f 78 17 e7 20 41 25 3e |m$,",").|.x.. A%>|
|00002cb0| 6d 61 78 25 20 8c 20 6d | 61 78 25 3d 41 25 0d 0f |max% . m|ax%=A%..|
|00002cc0| 82 10 6d 24 3d c1 6d 24 | 2c 41 25 2b 31 29 0d 0f |..m$=.m$|,A%+1)..|
|00002cd0| 8c 0e e7 20 6d 24 3c 3e | 22 22 20 8c 0d 0f 96 15 |... m$<>|"" .....|
|00002ce0| 21 70 74 72 25 3d 30 3a | 70 74 72 25 21 34 3d 2d |!ptr%=0:|ptr%!4=-|
|00002cf0| 31 0d 0f a0 0f 41 25 3d | a7 6d 24 2c 22 2c 22 29 |1....A%=|.m$,",")|
|00002d00| 0d 0f aa 17 e7 20 41 25 | 3e 6d 61 78 25 20 8c 20 |..... A%|>max% . |
|00002d10| 6d 61 78 25 3d 41 25 0d | 0f b4 25 e7 20 c0 6d 24 |max%=A%.|..%. .m$|
|00002d20| 2c 41 25 2d 31 29 3d 22 | 49 6e 66 6f 22 20 8c 20 |,A%-1)="|Info" . |
|00002d30| 70 74 72 25 21 34 3d 49 | 6e 66 6f 25 0d 0f be 13 |ptr%!4=I|nfo%....|
|00002d40| 70 74 72 25 21 38 3d 26 | 37 30 30 30 30 32 31 0d |ptr%!8=&|7000021.|
|00002d50| 0f c8 10 4c 24 3d c0 6d | 24 2c 41 25 2d 31 29 0d |...L$=.m|$,A%-1).|
|00002d60| 0f d2 1a 24 28 70 74 72 | 25 2b 31 32 29 3d c0 4c |...$(ptr|%+12)=.L|
|00002d70| 24 2c 31 31 29 2b bd 31 | 33 0d 0f dc 3a e7 20 24 |$,11)+.1|3...:. $|
|00002d80| 28 70 74 72 25 2b 31 32 | 29 3d 22 44 61 74 61 20 |(ptr%+12|)="Data |
|00002d90| 73 74 79 6c 65 22 20 84 | 20 24 28 70 74 72 25 2b |style" .| $(ptr%+|
|00002da0| 31 32 29 3d 22 44 65 6c | 65 74 65 20 64 61 74 61 |12)="Del|ete data|
|00002db0| 22 20 8c 0d 0f e6 13 20 | 20 70 74 72 25 21 34 3d |" ..... | ptr%!4=|
|00002dc0| 6d 25 2b 32 30 30 0d 0f | f0 2e 20 20 f2 64 72 61 |m%+200..|..  .dra|
|00002dd0| 77 6d 65 6e 75 28 32 2c | 70 74 72 25 21 34 2d 34 |wmenu(2,|ptr%!4-4|
|00002de0| 2c c0 44 24 2c 33 2b 33 | 2a 44 61 74 61 53 65 74 |,.D$,3+3|*DataSet|
|00002df0| 73 25 29 29 0d 0f fa 05 | cd 0d 10 04 0c 70 74 72 |s%))....|.....ptr|
|00002e00| 25 2b 3d 32 34 0d 10 0e | 05 cd 0d 10 18 05 ce 0d |%+=24...|........|
|00002e10| 10 22 1b 70 74 72 25 21 | 2d 32 34 3d 70 74 72 25 |.".ptr%!|-24=ptr%|
|00002e20| 21 2d 32 34 20 84 20 26 | 38 30 0d 10 2c 11 6d 25 |!-24 . &|80..,.m%|
|00002e30| 21 32 30 3d 31 36 2a 6d | 61 78 25 0d 10 36 05 e1 |!20=16*m|ax%..6..|
|00002e40| 0d 10 40 05 3a 0d 10 4a | 1a dd 20 f2 6f 70 65 6e |..@.:..J|.. .open|
|00002e50| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 29 0d |window(h|andle%).|
|00002e60| 10 54 54 62 6c 6f 63 6b | 32 25 21 30 3d 68 61 6e |.TTblock|2%!0=han|
|00002e70| 64 6c 65 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |dle%:.. |"Wimp_Ge|
|00002e80| 74 57 69 6e 64 6f 77 49 | 6e 66 6f 22 2c 2c 62 6c |tWindowI|nfo",,bl|
|00002e90| 6f 63 6b 32 25 3a c8 99 | 20 22 57 69 6d 70 5f 4f |ock2%:..| "Wimp_O|
|00002ea0| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |penWindo|w",,bloc|
|00002eb0| 6b 32 25 0d 10 5e 05 e1 | 0d 10 68 05 3a 0d 10 72 |k2%..^..|..h.:..r|
|00002ec0| 1b dd 20 f2 63 6c 6f 73 | 65 77 69 6e 64 6f 77 28 |.. .clos|ewindow(|
|00002ed0| 68 61 6e 64 6c 65 25 29 | 0d 10 7c 34 62 6c 6f 63 |handle%)|..|4bloc|
|00002ee0| 6b 32 25 21 30 3d 68 61 | 6e 64 6c 65 25 3a c8 99 |k2%!0=ha|ndle%:..|
|00002ef0| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 | "Wimp_C|loseWind|
|00002f00| 6f 77 22 2c 2c 62 6c 6f | 63 6b 32 25 0d 10 86 05 |ow",,blo|ck2%....|
|00002f10| e1 0d 10 90 05 3a 0d 10 | 9a 0e dd 20 f2 6b 65 79 |.....:..|... .key|
|00002f20| 28 62 25 29 0d 10 a4 0e | 77 69 6e 64 25 3d 62 25 |(b%)....|wind%=b%|
|00002f30| 21 30 0d 10 ae 0e 69 63 | 6f 6e 25 3d 62 25 21 34 |!0....ic|on%=b%!4|
|00002f40| 0d 10 b8 0f 63 68 61 72 | 25 3d 62 25 21 32 34 0d |....char|%=b%!24.|
|00002f50| 10 c2 0e c8 8e 20 63 68 | 61 72 25 20 ca 0d 10 cc |..... ch|ar% ....|
|00002f60| 30 c9 20 26 31 38 46 3a | e7 20 77 69 6e 64 25 3c |0. &18F:|. wind%<|
|00002f70| 3e 66 69 6c 65 25 20 8c | 20 f2 6d 6f 76 65 75 70 |>file% .| .moveup|
|00002f80| 28 77 69 6e 64 25 2c 69 | 63 6f 6e 25 29 0d 10 d6 |(wind%,i|con%)...|
|00002f90| 32 c9 20 26 31 38 45 3a | e7 20 77 69 6e 64 25 3c |2. &18E:|. wind%<|
|00002fa0| 3e 66 69 6c 65 25 20 8c | 20 f2 6d 6f 76 65 64 6f |>file% .| .movedo|
|00002fb0| 77 6e 28 77 69 6e 64 25 | 2c 69 63 6f 6e 25 29 0d |wn(wind%|,icon%).|
|00002fc0| 10 e0 57 c9 20 31 33 3a | e7 20 77 69 6e 64 25 3d |..W. 13:|. wind%=|
|00002fd0| 66 69 6c 65 25 20 8c 20 | f2 73 61 76 65 69 74 28 |file% . |.saveit(|
|00002fe0| 24 66 6e 61 6d 65 25 29 | 20 8b 20 f2 61 63 63 65 |$fname%)| . .acce|
|00002ff0| 70 74 28 77 69 6e 64 25 | 2c 69 63 6f 6e 25 29 3a |pt(wind%|,icon%):|
|00003000| f2 6d 6f 76 65 64 6f 77 | 6e 28 77 69 6e 64 25 2c |.movedow|n(wind%,|
|00003010| 69 63 6f 6e 25 29 0d 10 | ea 34 c9 20 32 37 3a 21 |icon%)..|.4. 27:!|
|00003020| 62 6c 6f 63 6b 25 3d 66 | 69 6c 65 25 3a c8 99 20 |block%=f|ile%:.. |
|00003030| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00003040| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 10 f4 05 7f 0d |w",,bloc|k%......|
|00003050| 10 fe 1e c8 99 20 22 57 | 69 6d 70 5f 50 72 6f 63 |..... "W|imp_Proc|
|00003060| 65 73 73 4b 65 79 22 2c | 63 68 61 72 25 0d 11 08 |essKey",|char%...|
|00003070| 05 cb 0d 11 12 05 e1 0d | 11 1c 05 3a 0d 11 26 1a |........|...:..&.|
|00003080| dd 20 f2 6d 6f 76 65 75 | 70 28 77 69 6e 64 25 2c |. .moveu|p(wind%,|
|00003090| 69 63 6f 6e 25 29 0d 11 | 30 08 ea 20 41 25 0d 11 |icon%)..|0.. A%..|
|000030a0| 3a 0c 69 63 6f 6e 25 2d | 3d 32 0d 11 44 0e c8 8e |:.icon%-|=2..D...|
|000030b0| 20 77 69 6e 64 25 20 ca | 0d 11 4e 23 c9 20 53 63 | wind% .|..N#. Sc|
|000030c0| 61 6c 65 25 20 20 3a e7 | 20 69 63 6f 6e 25 3d 32 |ale%  :.| icon%=2|
|000030d0| 20 8c 20 69 63 6f 6e 25 | 3d 31 34 0d 11 58 23 c9 | . icon%|=14..X#.|
|000030e0| 20 4c 65 67 65 6e 64 25 | 20 3a e7 20 69 63 6f 6e | Legend%| :. icon|
|000030f0| 25 3d 2d 31 20 8c 20 69 | 63 6f 6e 25 3d 35 0d 11 |%=-1 . i|con%=5..|
|00003100| 62 05 cb 0d 11 6c 0f e3 | 20 41 25 3d 31 20 b8 20 |b....l..| A%=1 . |
|00003110| 31 30 0d 11 76 2e e7 20 | 77 69 6e 64 25 3d 4d 6f |10..v.. |wind%=Mo|
|00003120| 64 65 6c 25 28 41 25 29 | 20 8c 20 e7 20 69 63 6f |del%(A%)| . . ico|
|00003130| 6e 25 3d 2d 31 20 8c 20 | 69 63 6f 6e 25 3d 32 31 |n%=-1 . |icon%=21|
|00003140| 0d 11 80 08 ed 20 41 25 | 0d 11 8a 26 c8 99 20 22 |..... A%|...&.. "|
|00003150| 57 69 6d 70 5f 47 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Get|CaretPos|
|00003160| 69 74 69 6f 6e 22 2c 2c | 63 61 72 65 74 25 0d 11 |ition",,|caret%..|
|00003170| 94 14 69 63 6f 6e 62 6c | 6b 25 21 30 3d 77 69 6e |..iconbl|k%!0=win|
|00003180| 64 25 0d 11 9e 14 69 63 | 6f 6e 62 6c 6b 25 21 34 |d%....ic|onblk%!4|
|00003190| 3d 69 63 6f 6e 25 0d 11 | a8 24 c8 99 20 22 57 69 |=icon%..|.$.. "Wi|
|000031a0| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|000031b0| 2c 2c 69 63 6f 6e 62 6c | 6b 25 0d 11 b2 47 f4 20 |,,iconbl|k%...G. |
|000031c0| 53 59 53 20 22 57 69 6d | 70 5f 53 65 74 43 61 72 |SYS "Wim|p_SetCar|
|000031d0| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 63 61 72 65 |etPositi|on",care|
|000031e0| 74 25 21 30 2c 69 63 6f | 6e 25 2c 2c 2c 2d 31 2c |t%!0,ico|n%,,,-1,|
|000031f0| 4c 45 4e 28 24 69 63 6f | 6e 62 6c 6b 25 21 32 38 |LEN($ico|nblk%!28|
|00003200| 29 0d 11 bc 35 c8 99 20 | 22 57 69 6d 70 5f 53 65 |)...5.. |"Wimp_Se|
|00003210| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|00003220| 63 61 72 65 74 25 21 30 | 2c 69 63 6f 6e 25 2c 2c |caret%!0|,icon%,,|
|00003230| 2c 2d 31 2c 2d 31 0d 11 | c6 05 e1 0d 11 d0 05 3a |,-1,-1..|.......:|
|00003240| 0d 11 da 1c dd 20 f2 6d | 6f 76 65 64 6f 77 6e 28 |..... .m|ovedown(|
|00003250| 77 69 6e 64 25 2c 69 63 | 6f 6e 25 29 0d 11 e4 0c |wind%,ic|on%)....|
|00003260| 69 63 6f 6e 25 2b 3d 32 | 0d 11 ee 0e c8 8e 20 77 |icon%+=2|...... w|
|00003270| 69 6e 64 25 20 ca 0d 11 | f8 23 c9 20 53 63 61 6c |ind% ...|.#. Scal|
|00003280| 65 25 20 20 3a e7 20 69 | 63 6f 6e 25 3d 31 36 20 |e%  :. i|con%=16 |
|00003290| 8c 20 69 63 6f 6e 25 3d | 34 0d 12 02 22 c9 20 4c |. icon%=|4...". L|
|000032a0| 65 67 65 6e 64 25 20 3a | e7 20 69 63 6f 6e 25 3d |egend% :|. icon%=|
|000032b0| 37 20 8c 20 69 63 6f 6e | 25 3d 31 0d 12 0c 05 cb |7 . icon|%=1.....|
|000032c0| 0d 12 16 0f e3 20 41 25 | 3d 31 20 b8 20 31 30 0d |..... A%|=1 . 10.|
|000032d0| 12 20 2d e7 20 77 69 6e | 64 25 3d 4d 6f 64 65 6c |. -. win|d%=Model|
|000032e0| 25 28 41 25 29 20 8c 20 | e7 20 69 63 6f 6e 25 3d |%(A%) . |. icon%=|
|000032f0| 32 33 20 8c 20 69 63 6f | 6e 25 3d 31 0d 12 2a 08 |23 . ico|n%=1..*.|
|00003300| ed 20 41 25 0d 12 34 26 | c8 99 20 22 57 69 6d 70 |. A%..4&|.. "Wimp|
|00003310| 5f 47 65 74 43 61 72 65 | 74 50 6f 73 69 74 69 6f |_GetCare|tPositio|
|00003320| 6e 22 2c 2c 63 61 72 65 | 74 25 0d 12 3e 14 69 63 |n",,care|t%..>.ic|
|00003330| 6f 6e 62 6c 6b 25 21 30 | 3d 77 69 6e 64 25 0d 12 |onblk%!0|=wind%..|
|00003340| 48 14 69 63 6f 6e 62 6c | 6b 25 21 34 3d 69 63 6f |H.iconbl|k%!4=ico|
|00003350| 6e 25 0d 12 52 24 c8 99 | 20 22 57 69 6d 70 5f 47 |n%..R$..| "Wimp_G|
|00003360| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 69 63 |etIconSt|ate",,ic|
|00003370| 6f 6e 62 6c 6b 25 0d 12 | 5c 47 f4 20 53 59 53 20 |onblk%..|\G. SYS |
|00003380| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|00003390| 73 69 74 69 6f 6e 22 2c | 63 61 72 65 74 25 21 30 |sition",|caret%!0|
|000033a0| 2c 69 63 6f 6e 25 2c 2c | 2c 2d 31 2c 4c 45 4e 28 |,icon%,,|,-1,LEN(|
|000033b0| 24 69 63 6f 6e 62 6c 6b | 25 21 32 38 29 0d 12 66 |$iconblk|%!28)..f|
|000033c0| 35 c8 99 20 22 57 69 6d | 70 5f 53 65 74 43 61 72 |5.. "Wim|p_SetCar|
|000033d0| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 63 61 72 65 |etPositi|on",care|
|000033e0| 74 25 21 30 2c 69 63 6f | 6e 25 2c 2c 2c 2d 31 2c |t%!0,ico|n%,,,-1,|
|000033f0| 2d 31 0d 12 70 05 e1 0d | 12 7a 05 3a 0d 12 84 1a |-1..p...|.z.:....|
|00003400| dd 20 f2 61 63 63 65 70 | 74 28 77 69 6e 64 25 2c |. .accep|t(wind%,|
|00003410| 69 63 6f 6e 25 29 0d 12 | 8e 08 ea 20 41 25 0d 12 |icon%)..|... A%..|
|00003420| 98 0e c8 8e 20 77 69 6e | 64 25 20 ca 0d 12 a2 1b |.... win|d% .....|
|00003430| c9 20 53 63 61 6c 65 25 | 20 3a f2 67 65 74 73 63 |. Scale%| :.getsc|
|00003440| 61 6c 65 76 61 72 73 0d | 12 ac 1c c9 20 4c 65 67 |alevars.|.... Leg|
|00003450| 65 6e 64 25 3a f2 67 65 | 74 6c 65 67 65 6e 64 76 |end%:.ge|tlegendv|
|00003460| 61 72 73 0d 12 b6 05 cb | 0d 12 c0 0f e3 20 41 25 |ars.....|..... A%|
|00003470| 3d 31 20 b8 20 31 30 0d | 12 ca 2a e7 20 77 69 6e |=1 . 10.|..*. win|
|00003480| 64 25 3d 4d 6f 64 65 6c | 25 28 41 25 29 20 8c 20 |d%=Model|%(A%) . |
|00003490| f2 67 65 74 6d 6f 64 65 | 6c 76 61 72 73 28 41 25 |.getmode|lvars(A%|
|000034a0| 29 0d 12 d4 2e e7 20 77 | 69 6e 64 25 3d 44 61 74 |)..... w|ind%=Dat|
|000034b0| 61 53 65 74 25 28 41 25 | 29 20 8c 20 f2 67 65 74 |aSet%(A%|) . .get|
|000034c0| 64 61 74 61 73 65 74 76 | 61 72 73 28 41 25 29 0d |datasetv|ars(A%).|
|000034d0| 12 de 08 ed 20 41 25 0d | 12 e8 05 e1 0d 12 f2 05 |.... A%.|........|
|000034e0| 3a 0d 12 fc 13 dd 20 f2 | 67 65 74 73 63 61 6c 65 |:..... .|getscale|
|000034f0| 76 61 72 73 0d 13 06 10 | 77 69 6e 64 25 3d 53 63 |vars....|wind%=Sc|
|00003500| 61 6c 65 25 0d 13 10 32 | 41 75 74 6f 53 63 61 6c |ale%...2|AutoScal|
|00003510| 65 44 61 74 61 25 3d a4 | 69 63 6f 6e 5f 73 65 6c |eData%=.|icon_sel|
|00003520| 65 63 74 65 64 28 41 75 | 74 6f 53 63 61 6c 65 44 |ected(Au|toScaleD|
|00003530| 61 74 61 48 25 29 0d 13 | 1a 1d 58 6d 69 6e 3d a4 |ataH%)..|..Xmin=.|
|00003540| 67 65 74 76 61 72 76 61 | 6c 28 58 6d 69 6e 48 25 |getvarva|l(XminH%|
|00003550| 2c 31 29 0d 13 24 1d 58 | 6d 61 78 3d a4 67 65 74 |,1)..$.X|max=.get|
|00003560| 76 61 72 76 61 6c 28 58 | 6d 61 78 48 25 2c 31 29 |varval(X|maxH%,1)|
|00003570| 0d 13 2e 16 e7 20 41 75 | 74 6f 53 63 61 6c 65 44 |..... Au|toScaleD|
|00003580| 61 74 61 25 20 8c 0d 13 | 38 1e 20 e7 20 58 6d 69 |ata% ...|8. . Xmi|
|00003590| 6e 3e 58 6d 69 6e 30 20 | 8c 20 58 6d 69 6e 3d 58 |n>Xmin0 |. Xmin=X|
|000035a0| 6d 69 6e 30 0d 13 42 1e | 20 e7 20 58 6d 61 78 3c |min0..B.| . Xmax<|
|000035b0| 58 6d 61 78 30 20 8c 20 | 58 6d 61 78 3d 58 6d 61 |Xmax0 . |Xmax=Xma|
|000035c0| 78 30 0d 13 4c 05 cd 0d | 13 56 22 58 74 69 63 6b |x0..L...|.V"Xtick|
|000035d0| 73 25 3d a4 67 65 74 76 | 61 72 76 61 6c 28 58 74 |s%=.getv|arval(Xt|
|000035e0| 69 63 6b 73 48 25 2c 31 | 29 0d 13 60 1d 59 6d 69 |icksH%,1|)..`.Ymi|
|000035f0| 6e 3d a4 67 65 74 76 61 | 72 76 61 6c 28 59 6d 69 |n=.getva|rval(Ymi|
|00003600| 6e 48 25 2c 31 29 0d 13 | 6a 1d 59 6d 61 78 3d a4 |nH%,1)..|j.Ymax=.|
|00003610| 67 65 74 76 61 72 76 61 | 6c 28 59 6d 61 78 48 25 |getvarva|l(YmaxH%|
|00003620| 2c 31 29 0d 13 74 16 e7 | 20 41 75 74 6f 53 63 61 |,1)..t..| AutoSca|
|00003630| 6c 65 44 61 74 61 25 20 | 8c 0d 13 7e 1e 20 e7 20 |leData% |...~. . |
|00003640| 59 6d 69 6e 3e 59 6d 69 | 6e 30 20 8c 20 59 6d 69 |Ymin>Ymi|n0 . Ymi|
|00003650| 6e 3d 59 6d 69 6e 30 0d | 13 88 1e 20 e7 20 59 6d |n=Ymin0.|... . Ym|
|00003660| 61 78 3c 59 6d 61 78 30 | 20 8c 20 59 6d 61 78 3d |ax<Ymax0| . Ymax=|
|00003670| 59 6d 61 78 30 0d 13 92 | 05 cd 0d 13 9c 22 59 74 |Ymax0...|....."Yt|
|00003680| 69 63 6b 73 25 3d a4 67 | 65 74 76 61 72 76 61 6c |icks%=.g|etvarval|
|00003690| 28 59 74 69 63 6b 73 48 | 25 2c 31 29 0d 13 a6 0e |(YticksH|%,1)....|
|000036a0| 70 72 69 6e 74 66 25 3d | 40 25 0d 13 b0 10 40 25 |printf%=|@%....@%|
|000036b0| 3d 26 30 31 30 30 30 33 | 30 33 0d 13 ba 1f f2 73 |=&010003|03.....s|
|000036c0| 65 74 76 61 72 69 63 6f | 6e 28 58 6d 69 6e 48 25 |etvarico|n(XminH%|
|000036d0| 2c c3 28 58 6d 69 6e 29 | 29 0d 13 c4 1f f2 73 65 |,.(Xmin)|).....se|
|000036e0| 74 76 61 72 69 63 6f 6e | 28 58 6d 61 78 48 25 2c |tvaricon|(XmaxH%,|
|000036f0| c3 28 58 6d 61 78 29 29 | 0d 13 ce 20 58 74 69 63 |.(Xmax))|... Xtic|
|00003700| 6b 49 6e 74 3d 28 58 6d | 61 78 2d 58 6d 69 6e 29 |kInt=(Xm|ax-Xmin)|
|00003710| 2f 58 74 69 63 6b 73 25 | 0d 13 d8 3f f2 73 65 74 |/Xticks%|...?.set|
|00003720| 76 61 72 69 63 6f 6e 28 | 58 74 69 63 6b 49 6e 74 |varicon(|XtickInt|
|00003730| 48 25 2c c0 22 54 69 63 | 6b 20 69 6e 74 65 72 76 |H%,."Tic|k interv|
|00003740| 61 6c 20 3d 20 22 2b c3 | 28 58 74 69 63 6b 49 6e |al = "+.|(XtickIn|
|00003750| 74 29 2c 32 32 29 29 0d | 13 e2 1f f2 73 65 74 76 |t),22)).|....setv|
|00003760| 61 72 69 63 6f 6e 28 59 | 6d 69 6e 48 25 2c c3 28 |aricon(Y|minH%,.(|
|00003770| 59 6d 69 6e 29 29 0d 13 | ec 1f f2 73 65 74 76 61 |Ymin))..|...setva|
|00003780| 72 69 63 6f 6e 28 59 6d | 61 78 48 25 2c c3 28 59 |ricon(Ym|axH%,.(Y|
|00003790| 6d 61 78 29 29 0d 13 f6 | 20 59 74 69 63 6b 49 6e |max))...| YtickIn|
|000037a0| 74 3d 28 59 6d 61 78 2d | 59 6d 69 6e 29 2f 59 74 |t=(Ymax-|Ymin)/Yt|
|000037b0| 69 63 6b 73 25 0d 14 00 | 3f f2 73 65 74 76 61 72 |icks%...|?.setvar|
|000037c0| 69 63 6f 6e 28 59 74 69 | 63 6b 49 6e 74 48 25 2c |icon(Yti|ckIntH%,|
|000037d0| c0 22 54 69 63 6b 20 69 | 6e 74 65 72 76 61 6c 20 |."Tick i|nterval |
|000037e0| 3d 20 22 2b c3 28 59 74 | 69 63 6b 49 6e 74 29 2c |= "+.(Yt|ickInt),|
|000037f0| 32 32 29 29 0d 14 0a 0f | f2 73 63 61 6c 65 5f 61 |22))....|.scale_a|
|00003800| 78 65 73 0d 14 14 0e 40 | 25 3d 70 72 69 6e 74 66 |xes....@|%=printf|
|00003810| 25 0d 14 1e 05 e1 0d 14 | 28 05 3a 0d 14 32 14 dd |%.......|(.:..2..|
|00003820| 20 f2 67 65 74 6c 65 67 | 65 6e 64 76 61 72 73 0d | .getleg|endvars.|
|00003830| 14 3c 11 77 69 6e 64 25 | 3d 4c 65 67 65 6e 64 25 |.<.wind%|=Legend%|
|00003840| 0d 14 46 20 54 69 74 6c | 65 24 3d a4 67 65 74 76 |..F Titl|e$=.getv|
|00003850| 61 72 76 61 6c 28 54 69 | 74 6c 65 48 25 2c 30 29 |arval(Ti|tleH%,0)|
|00003860| 0d 14 50 22 58 6c 61 62 | 6c 65 24 3d a4 67 65 74 |..P"Xlab|le$=.get|
|00003870| 76 61 72 76 61 6c 28 58 | 6c 61 62 6c 65 48 25 2c |varval(X|lableH%,|
|00003880| 30 29 0d 14 5a 22 58 45 | 66 6c 61 67 25 3d a4 69 |0)..Z"XE|flag%=.i|
|00003890| 63 6f 6e 5f 73 65 6c 65 | 63 74 65 64 28 58 65 78 |con_sele|cted(Xex|
|000038a0| 70 48 25 29 0d 14 64 22 | 59 6c 61 62 6c 65 24 3d |pH%)..d"|Ylable$=|
|000038b0| a4 67 65 74 76 61 72 76 | 61 6c 28 59 6c 61 62 6c |.getvarv|al(Ylabl|
|000038c0| 65 48 25 2c 30 29 0d 14 | 6e 22 59 45 66 6c 61 67 |eH%,0)..|n"YEflag|
|000038d0| 25 3d a4 69 63 6f 6e 5f | 73 65 6c 65 63 74 65 64 |%=.icon_|selected|
|000038e0| 28 59 65 78 70 48 25 29 | 0d 14 78 05 e1 0d 14 82 |(YexpH%)|..x.....|
|000038f0| 05 3a 0d 14 8c 17 dd 20 | f2 67 65 74 6d 6f 64 65 |.:..... |.getmode|
|00003900| 6c 76 61 72 73 28 42 25 | 29 0d 14 96 08 ea 20 41 |lvars(B%|)..... A|
|00003910| 25 0d 14 a0 14 77 69 6e | 64 25 3d 4d 6f 64 65 6c |%....win|d%=Model|
|00003920| 25 28 42 25 29 0d 14 aa | 26 50 61 72 61 6d 73 25 |%(B%)...|&Params%|
|00003930| 28 42 25 29 3d a4 67 65 | 74 76 61 72 76 61 6c 28 |(B%)=.ge|tvarval(|
|00003940| 50 61 72 61 6d 73 48 25 | 2c 31 29 0d 14 b4 22 46 |ParamsH%|,1)..."F|
|00003950| 75 6e 63 24 28 42 25 29 | 3d a4 67 65 74 76 61 72 |unc$(B%)|=.getvar|
|00003960| 76 61 6c 28 46 75 6e 63 | 48 25 2c 30 29 0d 14 be |val(Func|H%,0)...|
|00003970| 28 41 75 78 46 75 6e 63 | 24 28 42 25 29 3d a4 67 |(AuxFunc|$(B%)=.g|
|00003980| 65 74 76 61 72 76 61 6c | 28 41 75 78 46 75 6e 63 |etvarval|(AuxFunc|
|00003990| 48 25 2c 30 29 0d 14 c8 | 0e e3 20 41 25 3d 31 20 |H%,0)...|.. A%=1 |
|000039a0| b8 20 38 0d 14 d2 2a 50 | 61 72 61 6d 28 41 25 2c |. 8...*P|aram(A%,|
|000039b0| 42 25 29 3d a4 67 65 74 | 76 61 72 76 61 6c 28 50 |B%)=.get|varval(P|
|000039c0| 61 72 61 6d 48 25 28 41 | 25 29 2c 31 29 0d 14 dc |aramH%(A|%),1)...|
|000039d0| 08 ed 20 41 25 0d 14 e6 | 05 e1 0d 14 f0 05 3a 0d |.. A%...|......:.|
|000039e0| 14 fa 19 dd 20 f2 67 65 | 74 64 61 74 61 73 65 74 |.... .ge|tdataset|
|000039f0| 76 61 72 73 28 42 25 29 | 0d 15 04 16 77 69 6e 64 |vars(B%)|....wind|
|00003a00| 25 3d 44 61 74 61 53 65 | 74 25 28 42 25 29 0d 15 |%=DataSe|t%(B%)..|
|00003a10| 0e 23 53 69 67 65 78 28 | 42 25 29 3d a4 67 65 74 |.#Sigex(|B%)=.get|
|00003a20| 76 61 72 76 61 6c 28 53 | 69 67 65 78 48 25 2c 31 |varval(S|igexH%,1|
|00003a30| 29 0d 15 18 05 e1 0d 15 | 22 05 3a 0d 15 2c 20 dd |).......|".:.., .|
|00003a40| 20 a4 67 65 74 76 61 72 | 76 61 6c 28 69 63 6f 6e | .getvar|val(icon|
|00003a50| 25 2c 76 61 72 74 79 70 | 65 25 29 0d 15 36 14 69 |%,vartyp|e%)..6.i|
|00003a60| 63 6f 6e 62 6c 6b 25 21 | 30 3d 77 69 6e 64 25 0d |conblk%!|0=wind%.|
|00003a70| 15 40 14 69 63 6f 6e 62 | 6c 6b 25 21 34 3d 69 63 |.@.iconb|lk%!4=ic|
|00003a80| 6f 6e 25 0d 15 4a 24 c8 | 99 20 22 57 69 6d 70 5f |on%..J$.|. "Wimp_|
|00003a90| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 69 |GetIconS|tate",,i|
|00003aa0| 63 6f 6e 62 6c 6b 25 0d | 15 54 1a 72 65 73 75 6c |conblk%.|.T.resul|
|00003ab0| 74 24 3d 24 28 69 63 6f | 6e 62 6c 6b 25 21 32 38 |t$=$(ico|nblk%!28|
|00003ac0| 29 0d 15 5e 11 c8 8e 20 | 76 61 72 74 79 70 65 25 |)..^... |vartype%|
|00003ad0| 20 ca 0d 15 68 11 c9 20 | 30 3a 20 3d 72 65 73 75 | ...h.. |0: =resu|
|00003ae0| 6c 74 24 0d 15 72 14 c9 | 20 31 3a 20 3d bb 28 72 |lt$..r..| 1: =.(r|
|00003af0| 65 73 75 6c 74 24 29 0d | 15 7c 14 c9 20 32 3a 20 |esult$).|.|.. 2: |
|00003b00| 3d a0 28 72 65 73 75 6c | 74 24 29 0d 15 86 05 cb |=.(resul|t$).....|
|00003b10| 0d 15 90 05 3a 0d 15 9a | 1d dd 20 f2 73 65 74 76 |....:...|.. .setv|
|00003b20| 61 72 69 63 6f 6e 28 69 | 63 6f 6e 25 2c 76 61 6c |aricon(i|con%,val|
|00003b30| 24 29 0d 15 a4 14 69 63 | 6f 6e 62 6c 6b 25 21 30 |$)....ic|onblk%!0|
|00003b40| 3d 77 69 6e 64 25 0d 15 | ae 14 69 63 6f 6e 62 6c |=wind%..|..iconbl|
|00003b50| 6b 25 21 34 3d 69 63 6f | 6e 25 0d 15 b8 24 c8 99 |k%!4=ico|n%...$..|
|00003b60| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00003b70| 61 74 65 22 2c 2c 69 63 | 6f 6e 62 6c 6b 25 0d 15 |ate",,ic|onblk%..|
|00003b80| c2 17 24 28 69 63 6f 6e | 62 6c 6b 25 21 32 38 29 |..$(icon|blk%!28)|
|00003b90| 3d 76 61 6c 24 0d 15 cc | 10 69 63 6f 6e 62 6c 6b |=val$...|.iconblk|
|00003ba0| 25 21 38 3d 30 0d 15 d6 | 11 69 63 6f 6e 62 6c 6b |%!8=0...|.iconblk|
|00003bb0| 25 21 31 32 3d 30 0d 15 | e0 24 c8 99 20 22 57 69 |%!12=0..|.$.. "Wi|
|00003bc0| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00003bd0| 2c 2c 69 63 6f 6e 62 6c | 6b 25 0d 15 ea 05 e1 0d |,,iconbl|k%......|
|00003be0| 15 f4 05 3a 0d 15 fe 17 | dd 20 f2 75 73 65 72 64 |...:....|. .userd|
|00003bf0| 72 61 67 64 6f 6e 65 28 | 62 25 29 0d 16 08 20 c8 |ragdone(|b%)... .|
|00003c00| 99 20 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |. "Wimp_|GetPoint|
|00003c10| 65 72 49 6e 66 6f 22 2c | 2c 62 25 0d 16 12 39 f4 |erInfo",|,b%...9.|
|00003c20| 20 73 65 6e 64 20 27 64 | 61 74 61 73 61 76 65 27 | send 'd|atasave'|
|00003c30| 20 6d 65 73 73 61 67 65 | 20 74 6f 20 64 65 73 74 | message| to dest|
|00003c40| 69 6e 61 74 69 6f 6e 20 | 61 70 70 6c 69 63 61 74 |ination |applicat|
|00003c50| 69 6f 6e 2e 0d 16 1c 41 | 62 25 21 32 30 3d 62 25 |ion....A|b%!20=b%|
|00003c60| 21 31 32 3a 62 25 21 32 | 34 3d 62 25 21 31 36 3a |!12:b%!2|4=b%!16:|
|00003c70| 62 25 21 32 38 3d 62 25 | 21 30 3a 62 25 21 33 32 |b%!28=b%|!0:b%!32|
|00003c80| 3d 62 25 21 34 3a 62 25 | 21 33 36 3d 64 72 61 77 |=b%!4:b%|!36=draw|
|00003c90| 5f 70 74 72 25 0d 16 26 | 26 62 25 21 30 3d 36 34 |_ptr%..&|&b%!0=64|
|00003ca0| 3a 62 25 21 31 32 3d 30 | 3a 62 25 21 31 36 3d 31 |:b%!12=0|:b%!16=1|
|00003cb0| 3a 62 25 21 34 30 3d 26 | 41 46 46 0d 16 30 34 66 |:b%!40=&|AFF..04f|
|00003cc0| 24 3d 24 28 66 6e 61 6d | 65 25 29 3a e7 20 66 24 |$=$(fnam|e%):. f$|
|00003cd0| 3d 22 22 20 8c 20 24 28 | 66 6e 61 6d 65 25 29 3d |="" . $(|fname%)=|
|00003ce0| 22 44 72 61 77 46 69 6c | 65 22 2b bd 28 30 29 0d |"DrawFil|e"+.(0).|
|00003cf0| 16 3a 1e 24 28 62 25 2b | 34 34 29 3d a4 6c 65 61 |.:.$(b%+|44)=.lea|
|00003d00| 66 28 24 66 6e 61 6d 65 | 25 29 2b bd 30 0d 16 44 |f($fname|%)+.0..D|
|00003d10| 2b c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |+.. "Wim|p_SendMe|
|00003d20| 73 73 61 67 65 22 2c 31 | 37 2c 62 25 2c 62 25 21 |ssage",1|7,b%,b%!|
|00003d30| 32 30 2c 62 25 21 32 34 | 0d 16 4e 0f 6d 79 72 65 |20,b%!24|..N.myre|
|00003d40| 66 25 3d 62 25 21 38 0d | 16 58 05 e1 0d 16 62 05 |f%=b%!8.|.X....b.|
|00003d50| 3a 0d 16 6c 18 dd 20 f2 | 6d 65 6e 75 73 65 6c 65 |:..l.. .|menusele|
|00003d60| 63 74 28 41 25 2c 42 25 | 29 0d 16 76 08 ea 20 43 |ct(A%,B%|)..v.. C|
|00003d70| 25 0d 16 80 35 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%...5.. |"Wimp_Ge|
|00003d80| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 62 |tPointer|Info",,b|
|00003d90| 6c 6f 63 6b 25 3a 73 74 | 61 79 25 3d 62 6c 6f 63 |lock%:st|ay%=bloc|
|00003da0| 6b 25 21 38 3d 31 0d 16 | 8a 0f c8 8e 20 21 6d 65 |k%!8=1..|.... !me|
|00003db0| 6e 75 25 20 ca 0d 16 94 | 07 c9 20 31 0d 16 9e 0c |nu% ....|.. 1....|
|00003dc0| 20 c8 8e 20 41 25 20 ca | 0d 16 a8 10 20 c9 20 31 | .. A% .|.... . 1|
|00003dd0| 3a 71 75 69 74 25 3d b9 | 0d 16 b2 06 20 cb 0d 16 |:quit%=.|.... ...|
|00003de0| bc 07 c9 20 32 0d 16 c6 | 0d 20 20 c8 8e 20 41 25 |... 2...|.  .. A%|
|00003df0| 20 ca 0d 16 d0 1e 20 20 | c9 20 30 3a f2 6f 70 65 | .....  |. 0:.ope|
|00003e00| 6e 77 69 6e 64 6f 77 28 | 4c 65 67 65 6e 64 25 29 |nwindow(|Legend%)|
|00003e10| 0d 16 da 13 20 20 c9 20 | 31 3a c8 8e 20 42 25 2b |....  . |1:.. B%+|
|00003e20| 31 20 ca 0d 16 e4 23 20 | 20 20 20 20 20 20 20 20 |1 ....# |        |
|00003e30| c9 20 31 2c 32 2c 33 2c | 34 2c 35 2c 36 2c 37 2c |. 1,2,3,|4,5,6,7,|
|00003e40| 38 2c 39 2c 31 30 0d 16 | ee 3a 20 20 20 20 20 20 |8,9,10..|.:      |
|00003e50| 20 20 20 e7 20 44 61 74 | 61 53 65 74 73 25 3d 30 |   . Dat|aSets%=0|
|00003e60| 20 8c 20 f2 6d 6f 61 6e | 28 22 4e 6f 20 64 61 74 | . .moan|("No dat|
|00003e70| 61 20 73 65 74 73 20 6c | 6f 61 64 65 64 21 22 29 |a sets l|oaded!")|
|00003e80| 0d 16 f8 20 20 20 20 20 | 20 20 20 20 20 e7 20 42 |...     |     . B|
|00003e90| 25 2b 31 3c 3d 44 61 74 | 61 53 65 74 73 25 20 8c |%+1<=Dat|aSets% .|
|00003ea0| 0d 17 02 28 20 20 20 20 | 20 20 20 20 20 f2 6f 70 |...(    |     .op|
|00003eb0| 65 6e 77 69 6e 64 6f 77 | 28 44 61 74 61 53 65 74 |enwindow|(DataSet|
|00003ec0| 25 28 42 25 2b 31 29 29 | 0d 17 0c 0e 20 20 20 20 |%(B%+1))|....    |
|00003ed0| 20 20 20 20 20 cc 0d 17 | 16 38 20 20 20 20 20 20 |     ...|.8      |
|00003ee0| 20 20 20 f2 6d 6f 61 6e | 28 22 44 61 74 61 20 73 |   .moan|("Data s|
|00003ef0| 65 74 20 23 20 22 2b c3 | 28 42 25 2b 31 29 2b 22 |et # "+.|(B%+1)+"|
|00003f00| 20 6e 6f 74 20 6c 6f 61 | 64 65 64 21 22 29 0d 17 | not loa|ded!")..|
|00003f10| 20 0e 20 20 20 20 20 20 | 20 20 20 cd 0d 17 2a 0e | .      |   ...*.|
|00003f20| 20 20 20 20 20 20 20 20 | 20 cb 0d 17 34 25 20 20 |        | ...4%  |
|00003f30| c9 20 32 3a f2 5f 44 72 | 61 77 46 69 6c 65 5f 47 |. 2:._Dr|awFile_G|
|00003f40| 72 61 70 68 28 44 61 74 | 61 53 65 74 73 25 29 0d |raph(Dat|aSets%).|
|00003f50| 17 3e 13 20 20 c9 20 33 | 3a c8 8e 20 42 25 2b 31 |.>.  . 3|:.. B%+1|
|00003f60| 20 ca 0d 17 48 23 20 20 | 20 20 20 20 20 20 20 c9 | ...H#  |       .|
|00003f70| 20 31 2c 32 2c 33 2c 34 | 2c 35 2c 36 2c 37 2c 38 | 1,2,3,4|,5,6,7,8|
|00003f80| 2c 39 2c 31 30 0d 17 52 | 1c 20 20 20 20 20 20 20 |,9,10..R|.       |
|00003f90| 20 20 e7 20 44 61 74 61 | 53 65 74 73 25 3e 31 20 |  . Data|Sets%>1 |
|00003fa0| 8c 0d 17 5c 24 20 20 20 | 20 20 20 20 20 20 e3 20 |...\$   |      . |
|00003fb0| 43 25 3d 42 25 2b 31 20 | b8 20 44 61 74 61 53 65 |C%=B%+1 |. DataSe|
|00003fc0| 74 73 25 2d 31 0d 17 66 | 23 20 20 20 20 20 20 20 |ts%-1..f|#       |
|00003fd0| 20 20 f2 63 6f 70 79 5f | 64 61 74 61 73 65 74 28 |  .copy_|dataset(|
|00003fe0| 43 25 2b 31 2c 43 25 29 | 0d 17 70 11 20 20 20 20 |C%+1,C%)|..p.    |
|00003ff0| 20 20 20 20 20 ed 20 43 | 25 0d 17 7a 35 20 20 20 |     . C|%..z5   |
|00004000| 20 20 20 20 20 20 f2 63 | 6c 6f 73 65 5f 6f 70 65 |      .c|lose_ope|
|00004010| 6e 65 64 77 69 6e 64 6f | 77 28 44 61 74 61 53 65 |nedwindo|w(DataSe|
|00004020| 74 25 28 44 61 74 61 53 | 65 74 73 25 29 29 0d 17 |t%(DataS|ets%))..|
|00004030| 84 33 20 20 20 20 20 20 | 20 20 20 f2 63 6c 6f 73 |.3      |   .clos|
|00004040| 65 5f 6f 70 65 6e 65 64 | 77 69 6e 64 6f 77 28 4d |e_opened|window(M|
|00004050| 6f 64 65 6c 25 28 44 61 | 74 61 53 65 74 73 25 29 |odel%(Da|taSets%)|
|00004060| 29 0d 17 8e 0e 20 20 20 | 20 20 20 20 20 20 cd 0d |)....   |      ..|
|00004070| 17 98 27 20 20 20 20 20 | 20 20 20 20 f2 64 65 6c |..'     |    .del|
|00004080| 65 74 65 5f 64 61 74 61 | 73 65 74 28 44 61 74 61 |ete_data|set(Data|
|00004090| 53 65 74 73 25 29 0d 17 | a2 19 20 20 20 20 20 20 |Sets%)..|..      |
|000040a0| 20 20 20 44 61 74 61 53 | 65 74 73 25 2d 3d 31 0d |   DataS|ets%-=1.|
|000040b0| 17 ac 1c 20 20 20 20 20 | 20 20 20 20 e7 20 44 61 |...     |    . Da|
|000040c0| 74 61 53 65 74 73 25 3d | 30 20 8c 0d 17 b6 28 20 |taSets%=|0 ....( |
|000040d0| 20 20 20 20 20 20 20 20 | f2 63 6c 6f 73 65 5f 6f |        |.close_o|
|000040e0| 70 65 6e 65 64 77 69 6e | 64 6f 77 28 53 63 61 6c |penedwin|dow(Scal|
|000040f0| 65 25 29 0d 17 c0 29 20 | 20 20 20 20 20 20 20 20 |e%)...) |        |
|00004100| f2 63 6c 6f 73 65 5f 6f | 70 65 6e 65 64 77 69 6e |.close_o|penedwin|
|00004110| 64 6f 77 28 4c 65 67 65 | 6e 64 25 29 0d 17 ca 18 |dow(Lege|nd%)....|
|00004120| 20 20 20 20 20 20 20 20 | 20 e3 20 43 25 3d 31 20 |        | . C%=1 |
|00004130| b8 20 31 30 0d 17 d4 2e | 20 20 20 20 20 20 20 20 |. 10....|        |
|00004140| 20 f2 63 6c 6f 73 65 5f | 6f 70 65 6e 65 64 77 69 | .close_|openedwi|
|00004150| 6e 64 6f 77 28 44 61 74 | 61 53 65 74 25 28 43 25 |ndow(Dat|aSet%(C%|
|00004160| 29 29 0d 17 de 2c 20 20 | 20 20 20 20 20 20 20 f2 |))...,  |       .|
|00004170| 63 6c 6f 73 65 5f 6f 70 | 65 6e 65 64 77 69 6e 64 |close_op|enedwind|
|00004180| 6f 77 28 4d 6f 64 65 6c | 25 28 43 25 29 29 0d 17 |ow(Model|%(C%))..|
|00004190| e8 11 20 20 20 20 20 20 | 20 20 20 ed 20 43 25 0d |..      |   . C%.|
|000041a0| 17 f2 0e 20 20 20 20 20 | 20 20 20 20 cc 0d 17 fc |...     |    ....|
|000041b0| 0e 20 20 20 20 20 20 20 | 20 20 cd 0d 18 06 0e 20 |.       |  ..... |
|000041c0| 20 20 20 20 20 20 20 20 | cb 0d 18 10 25 20 20 c9 |        |....%  .|
|000041d0| 20 34 3a f2 63 6c 6f 73 | 65 5f 6f 70 65 6e 65 64 | 4:.clos|e_opened|
|000041e0| 77 69 6e 64 6f 77 28 53 | 63 61 6c 65 25 29 0d 18 |window(S|cale%)..|
|000041f0| 1a 29 20 20 20 20 20 20 | 20 20 20 f2 63 6c 6f 73 |.)      |   .clos|
|00004200| 65 5f 6f 70 65 6e 65 64 | 77 69 6e 64 6f 77 28 4c |e_opened|window(L|
|00004210| 65 67 65 6e 64 25 29 0d | 18 24 18 20 20 20 20 20 |egend%).|.$.     |
|00004220| 20 20 20 20 e3 20 43 25 | 3d 31 20 b8 20 31 30 0d |    . C%|=1 . 10.|
|00004230| 18 2e 2e 20 20 20 20 20 | 20 20 20 20 f2 63 6c 6f |...     |    .clo|
|00004240| 73 65 5f 6f 70 65 6e 65 | 64 77 69 6e 64 6f 77 28 |se_opene|dwindow(|
|00004250| 44 61 74 61 53 65 74 25 | 28 43 25 29 29 0d 18 38 |DataSet%|(C%))..8|
|00004260| 2c 20 20 20 20 20 20 20 | 20 20 f2 63 6c 6f 73 65 |,       |  .close|
|00004270| 5f 6f 70 65 6e 65 64 77 | 69 6e 64 6f 77 28 4d 6f |_openedw|indow(Mo|
|00004280| 64 65 6c 25 28 43 25 29 | 29 0d 18 42 11 20 20 20 |del%(C%)|)..B.   |
|00004290| 20 20 20 20 20 20 ed 20 | 43 25 0d 18 4c 17 20 20 |      . |C%..L.  |
|000042a0| 20 20 20 20 20 20 20 f2 | 5f 49 6e 69 74 56 61 72 |       .|_InitVar|
|000042b0| 73 0d 18 56 07 20 20 cb | 0d 18 60 05 cb 0d 18 6a |s..V.  .|..`....j|
|000042c0| 1c e7 20 73 74 61 79 25 | 20 80 20 44 61 74 61 53 |.. stay%| . DataS|
|000042d0| 65 74 73 25 3c 3e 30 20 | 8c 0d 18 74 14 62 6c 6f |ets%<>0 |...t.blo|
|000042e0| 63 6b 25 21 30 3d 6d 65 | 6e 75 5f 78 25 0d 18 7e |ck%!0=me|nu_x%..~|
|000042f0| 14 62 6c 6f 63 6b 25 21 | 34 3d 6d 65 6e 75 5f 79 |.block%!|4=menu_y|
|00004300| 25 0d 18 88 18 62 6c 6f | 63 6b 25 21 31 32 3d 6d |%....blo|ck%!12=m|
|00004310| 65 6e 75 5f 77 69 6e 64 | 25 0d 18 92 11 f2 6d 65 |enu_wind|%.....me|
|00004320| 6e 75 28 62 6c 6f 63 6b | 25 29 0d 18 9c 05 cd 0d |nu(block|%)......|
|00004330| 18 a6 05 e1 0d 18 b0 05 | 3a 0d 18 ba 20 dd 20 f2 |........|:... . .|
|00004340| 63 6c 6f 73 65 5f 6f 70 | 65 6e 65 64 77 69 6e 64 |close_op|enedwind|
|00004350| 6f 77 28 77 69 6e 64 25 | 29 0d 18 c4 0c ea 20 66 |ow(wind%|)..... f|
|00004360| 6c 61 67 73 25 0d 18 ce | 13 62 6c 6f 63 6b 32 25 |lags%...|.block2%|
|00004370| 21 30 3d 77 69 6e 64 25 | 0d 18 d8 24 c8 99 20 22 |!0=wind%|...$.. "|
|00004380| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 49 6e |Wimp_Get|WindowIn|
|00004390| 66 6f 22 2c 2c 62 6c 6f | 63 6b 32 25 0d 18 e2 15 |fo",,blo|ck2%....|
|000043a0| 66 6c 61 67 73 25 3d 62 | 6c 6f 63 6b 32 25 21 33 |flags%=b|lock2%!3|
|000043b0| 32 0d 18 ec 30 e7 20 28 | 66 6c 61 67 73 25 20 80 |2...0. (|flags% .|
|000043c0| 20 26 31 30 30 30 30 29 | 3c 3e 30 20 8c 20 f2 63 | &10000)|<>0 . .c|
|000043d0| 6c 6f 73 65 77 69 6e 64 | 6f 77 28 77 69 6e 64 25 |losewind|ow(wind%|
|000043e0| 29 0d 18 f6 05 e1 0d 19 | 00 05 3a 0d 19 0a 1a dd |).......|..:.....|
|000043f0| 20 f2 63 6f 70 79 5f 64 | 61 74 61 73 65 74 28 53 | .copy_d|ataset(S|
|00004400| 25 2c 44 25 29 0d 19 14 | 11 ea 20 41 25 2c 77 69 |%,D%)...|.. A%,wi|
|00004410| 6e 64 25 2c 4c 24 0d 19 | 1e 1d f4 20 43 6f 70 79 |nd%,L$..|... Copy|
|00004420| 20 58 2c 59 2c 20 26 20 | 45 72 72 59 20 64 61 74 | X,Y, & |ErrY dat|
|00004430| 61 20 21 0d 19 28 19 4e | 64 61 74 61 25 28 44 25 |a !..(.N|data%(D%|
|00004440| 29 3d 4e 64 61 74 61 25 | 28 53 25 29 0d 19 32 17 |)=Ndata%|(S%)..2.|
|00004450| e3 20 41 25 3d 31 20 b8 | 20 4e 64 61 74 61 25 28 |. A%=1 .| Ndata%(|
|00004460| 44 25 29 0d 19 3c 15 58 | 28 41 25 2c 44 25 29 3d |D%)..<.X|(A%,D%)=|
|00004470| 58 28 41 25 2c 53 25 29 | 0d 19 46 15 59 28 41 25 |X(A%,S%)|..F.Y(A%|
|00004480| 2c 44 25 29 3d 59 28 41 | 25 2c 53 25 29 0d 19 50 |,D%)=Y(A|%,S%)..P|
|00004490| 1b 45 72 72 59 28 41 25 | 2c 44 25 29 3d 45 72 72 |.ErrY(A%|,D%)=Err|
|000044a0| 59 28 41 25 2c 53 25 29 | 0d 19 5a 08 ed 20 41 25 |Y(A%,S%)|..Z.. A%|
|000044b0| 0d 19 64 1b e7 20 4e 64 | 61 74 61 25 28 44 25 29 |..d.. Nd|ata%(D%)|
|000044c0| 3c 4d 61 78 44 61 74 61 | 25 20 8c 0d 19 6e 40 e3 |<MaxData|% ...n@.|
|000044d0| 20 41 25 3d 31 20 b8 20 | 4e 64 61 74 61 25 28 44 | A%=1 . |Ndata%(D|
|000044e0| 25 29 3a 58 28 41 25 2c | 44 25 29 3d 30 3a 59 28 |%):X(A%,|D%)=0:Y(|
|000044f0| 41 25 2c 44 25 29 3d 30 | 3a 45 72 72 59 28 41 25 |A%,D%)=0|:ErrY(A%|
|00004500| 2c 44 25 29 3d 30 3a ed | 20 41 25 0d 19 78 05 cd |,D%)=0:.| A%..x..|
|00004510| 0d 19 82 18 f4 20 52 65 | 73 63 61 6c 65 20 61 6c |..... Re|scale al|
|00004520| 6c 20 64 61 74 61 20 21 | 0d 19 8c 29 58 6d 69 6e |l data !|...)Xmin|
|00004530| 30 3d 2d 31 30 3a 58 6d | 61 78 30 3d 31 30 3a 59 |0=-10:Xm|ax0=10:Y|
|00004540| 6d 69 6e 30 3d 2d 31 30 | 3a 59 6d 61 78 30 3d 31 |min0=-10|:Ymax0=1|
|00004550| 30 0d 19 96 13 f2 73 63 | 61 6c 65 5f 64 61 74 61 |0.....sc|ale_data|
|00004560| 28 44 25 29 0d 19 a0 0f | f2 73 63 61 6c 65 5f 61 |(D%)....|.scale_a|
|00004570| 78 65 73 0d 19 aa 20 f4 | 20 75 70 64 61 74 65 20 |xes... .| update |
|00004580| 73 63 61 6c 65 20 77 69 | 6e 64 6f 77 20 69 63 6f |scale wi|ndow ico|
|00004590| 6e 73 2e 0d 19 b4 10 77 | 69 6e 64 25 3d 53 63 61 |ns.....w|ind%=Sca|
|000045a0| 6c 65 25 0d 19 be 0e 70 | 72 69 6e 74 66 25 3d 40 |le%....p|rintf%=@|
|000045b0| 25 0d 19 c8 10 40 25 3d | 26 30 31 30 30 30 33 30 |%....@%=|&0100030|
|000045c0| 33 0d 19 d2 20 58 74 69 | 63 6b 49 6e 74 3d 28 58 |3... Xti|ckInt=(X|
|000045d0| 6d 61 78 2d 58 6d 69 6e | 29 2f 58 74 69 63 6b 73 |max-Xmin|)/Xticks|
|000045e0| 25 0d 19 dc 20 59 74 69 | 63 6b 49 6e 74 3d 28 59 |%... Yti|ckInt=(Y|
|000045f0| 6d 61 78 2d 59 6d 69 6e | 29 2f 59 74 69 63 6b 73 |max-Ymin|)/Yticks|
|00004600| 25 0d 19 e6 1f f2 73 65 | 74 76 61 72 69 63 6f 6e |%.....se|tvaricon|
|00004610| 28 58 6d 69 6e 48 25 2c | c3 28 58 6d 69 6e 29 29 |(XminH%,|.(Xmin))|
|00004620| 0d 19 f0 1f f2 73 65 74 | 76 61 72 69 63 6f 6e 28 |.....set|varicon(|
|00004630| 59 6d 69 6e 48 25 2c c3 | 28 59 6d 69 6e 29 29 0d |YminH%,.|(Ymin)).|
|00004640| 19 fa 1f f2 73 65 74 76 | 61 72 69 63 6f 6e 28 58 |....setv|aricon(X|
|00004650| 6d 61 78 48 25 2c c3 28 | 58 6d 61 78 29 29 0d 1a |maxH%,.(|Xmax))..|
|00004660| 04 1f f2 73 65 74 76 61 | 72 69 63 6f 6e 28 59 6d |...setva|ricon(Ym|
|00004670| 61 78 48 25 2c c3 28 59 | 6d 61 78 29 29 0d 1a 0e |axH%,.(Y|max))...|
|00004680| 24 f2 73 65 74 76 61 72 | 69 63 6f 6e 28 58 74 69 |$.setvar|icon(Xti|
|00004690| 63 6b 73 48 25 2c c3 28 | 58 74 69 63 6b 73 25 29 |cksH%,.(|Xticks%)|
|000046a0| 29 0d 1a 18 3a f2 73 65 | 74 76 61 72 69 63 6f 6e |)...:.se|tvaricon|
|000046b0| 28 58 74 69 63 6b 49 6e | 74 48 25 2c 22 54 69 63 |(XtickIn|tH%,"Tic|
|000046c0| 6b 20 69 6e 74 65 72 76 | 61 6c 20 3d 20 22 2b c3 |k interv|al = "+.|
|000046d0| 28 58 74 69 63 6b 49 6e | 74 29 29 0d 1a 22 24 f2 |(XtickIn|t)).."$.|
|000046e0| 73 65 74 76 61 72 69 63 | 6f 6e 28 59 74 69 63 6b |setvaric|on(Ytick|
|000046f0| 73 48 25 2c c3 28 59 74 | 69 63 6b 73 25 29 29 0d |sH%,.(Yt|icks%)).|
|00004700| 1a 2c 3a f2 73 65 74 76 | 61 72 69 63 6f 6e 28 59 |.,:.setv|aricon(Y|
|00004710| 74 69 63 6b 49 6e 74 48 | 25 2c 22 54 69 63 6b 20 |tickIntH|%,"Tick |
|00004720| 69 6e 74 65 72 76 61 6c | 20 3d 20 22 2b c3 28 59 |interval| = "+.(Y|
|00004730| 74 69 63 6b 49 6e 74 29 | 29 0d 1a 36 3e f2 73 65 |tickInt)|)..6>.se|
|00004740| 74 76 61 72 69 63 6f 6e | 28 44 61 74 61 53 65 74 |tvaricon|(DataSet|
|00004750| 73 48 25 2c 22 23 20 6f | 66 20 64 61 74 61 20 73 |sH%,"# o|f data s|
|00004760| 65 74 73 20 3d 20 22 2b | c3 28 44 61 74 61 53 65 |ets = "+|.(DataSe|
|00004770| 74 73 25 2d 31 29 29 0d | 1a 40 0e 40 25 3d 70 72 |ts%-1)).|.@.@%=pr|
|00004780| 69 6e 74 66 25 0d 1a 4a | 1b f4 20 75 70 64 61 74 |intf%..J|.. updat|
|00004790| 65 20 44 61 74 61 53 65 | 74 20 77 69 6e 64 6f 77 |e DataSe|t window|
|000047a0| 0d 1a 54 16 77 69 6e 64 | 25 3d 44 61 74 61 53 65 |..T.wind|%=DataSe|
|000047b0| 74 25 28 44 25 29 0d 1a | 5e 17 f2 63 6c 65 61 72 |t%(D%)..|^..clear|
|000047c0| 73 74 79 6c 65 76 61 72 | 73 28 44 25 29 0d 1a 68 |stylevar|s(D%)..h|
|000047d0| 1f 44 61 74 61 46 69 6c | 65 24 28 44 25 29 3d 44 |.DataFil|e$(D%)=D|
|000047e0| 61 74 61 46 69 6c 65 24 | 28 53 25 29 0d 1a 72 29 |ataFile$|(S%)..r)|
|000047f0| f2 73 65 74 76 61 72 69 | 63 6f 6e 28 44 61 74 61 |.setvari|con(Data|
|00004800| 46 69 6c 65 48 25 2c 44 | 61 74 61 46 69 6c 65 24 |FileH%,D|ataFile$|
|00004810| 28 44 25 29 29 0d 1a 7c | 17 53 69 67 65 78 28 44 |(D%))..||.Sigex(D|
|00004820| 25 29 3d 53 69 67 65 78 | 28 53 25 29 0d 1a 86 1d |%)=Sigex|(S%)....|
|00004830| 44 61 74 61 45 72 72 25 | 28 44 25 29 3d 44 61 74 |DataErr%|(D%)=Dat|
|00004840| 61 45 72 72 25 28 53 25 | 29 0d 1a 90 14 e7 20 44 |aErr%(S%|)..... D|
|00004850| 61 74 61 45 72 72 25 28 | 44 25 29 20 8c 0d 1a 9a |ataErr%(|D%) ....|
|00004860| 35 f2 73 65 74 76 61 72 | 69 63 6f 6e 28 53 69 67 |5.setvar|icon(Sig|
|00004870| 65 78 48 25 2c 22 22 29 | 3a f2 63 61 6e 73 65 6c |exH%,"")|:.cansel|
|00004880| 65 63 74 69 63 6f 6e 28 | 53 69 67 65 78 48 25 2c |ecticon(|SigexH%,|
|00004890| a3 29 0d 1a a4 05 cc 0d | 1a ae 47 f2 63 61 6e 73 |.)......|..G.cans|
|000048a0| 65 6c 65 63 74 69 63 6f | 6e 28 53 69 67 65 78 48 |electico|n(SigexH|
|000048b0| 25 2c b9 29 3a f2 73 65 | 74 76 61 72 69 63 6f 6e |%,.):.se|tvaricon|
|000048c0| 28 53 69 67 65 78 48 25 | 2c a4 5f 52 6f 75 6e 64 |(SigexH%|,._Round|
|000048d0| 28 53 69 67 65 78 28 44 | 25 29 2c 34 29 29 0d 1a |(Sigex(D|%),4))..|
|000048e0| b8 05 cd 0d 1a c2 1f 55 | 73 65 4d 6f 64 65 6c 25 |.......U|seModel%|
|000048f0| 28 44 25 29 3d 55 73 65 | 4d 6f 64 65 6c 25 28 53 |(D%)=Use|Model%(S|
|00004900| 25 29 0d 1a cc 27 44 69 | 73 70 6c 61 79 4d 6f 64 |%)...'Di|splayMod|
|00004910| 65 6c 25 28 44 25 29 3d | 44 69 73 70 6c 61 79 4d |el%(D%)=|DisplayM|
|00004920| 6f 64 65 6c 25 28 53 25 | 29 0d 1a d6 2d 4d 6f 64 |odel%(S%|)...-Mod|
|00004930| 65 6c 43 75 72 76 65 53 | 74 79 6c 65 25 28 44 25 |elCurveS|tyle%(D%|
|00004940| 29 3d 4d 6f 64 65 6c 43 | 75 72 76 65 53 74 79 6c |)=ModelC|urveStyl|
|00004950| 65 25 28 53 25 29 0d 1a | e0 3d e3 20 41 25 3d 31 |e%(S%)..|.=. A%=1|
|00004960| 20 b8 20 53 74 79 6c 65 | 73 25 3a 53 74 79 6c 65 | . Style|s%:Style|
|00004970| 46 6c 61 67 25 28 41 25 | 2c 44 25 29 3d 53 74 79 |Flag%(A%|,D%)=Sty|
|00004980| 6c 65 46 6c 61 67 25 28 | 41 25 2c 53 25 29 3a ed |leFlag%(|A%,S%):.|
|00004990| 20 41 25 0d 1a ea 23 50 | 6f 69 6e 74 53 74 79 6c | A%...#P|ointStyl|
|000049a0| 65 25 28 44 25 29 3d 50 | 6f 69 6e 74 53 74 79 6c |e%(D%)=P|ointStyl|
|000049b0| 65 25 28 53 25 29 0d 1a | f4 23 43 75 72 76 65 53 |e%(S%)..|.#CurveS|
|000049c0| 74 79 6c 65 25 28 44 25 | 29 3d 43 75 72 76 65 53 |tyle%(D%|)=CurveS|
|000049d0| 74 79 6c 65 25 28 53 25 | 29 0d 1a fe 18 f2 63 6c |tyle%(S%|).....cl|
|000049e0| 65 61 72 73 74 79 6c 65 | 69 63 6f 6e 73 28 44 25 |earstyle|icons(D%|
|000049f0| 29 0d 1b 08 16 f2 73 65 | 74 73 74 79 6c 65 69 63 |).....se|tstyleic|
|00004a00| 6f 6e 73 28 44 25 29 0d | 1b 12 1a f4 20 55 70 64 |ons(D%).|.... Upd|
|00004a10| 61 74 65 20 6d 6f 64 65 | 6c 73 20 77 69 6e 64 6f |ate mode|ls windo|
|00004a20| 77 0d 1b 1c 14 77 69 6e | 64 25 3d 4d 6f 64 65 6c |w....win|d%=Model|
|00004a30| 25 28 44 25 29 0d 1b 26 | 1b 50 61 72 61 6d 73 25 |%(D%)..&|.Params%|
|00004a40| 28 44 25 29 3d 50 61 72 | 61 6d 73 25 28 53 25 29 |(D%)=Par|ams%(S%)|
|00004a50| 0d 1b 30 28 f2 73 65 74 | 76 61 72 69 63 6f 6e 28 |..0(.set|varicon(|
|00004a60| 50 61 72 61 6d 73 48 25 | 2c c3 28 50 61 72 61 6d |ParamsH%|,.(Param|
|00004a70| 73 25 28 44 25 29 29 29 | 0d 1b 3a 17 46 75 6e 63 |s%(D%)))|..:.Func|
|00004a80| 24 28 44 25 29 3d 46 75 | 6e 63 24 28 53 25 29 0d |$(D%)=Fu|nc$(S%).|
|00004a90| 1b 44 21 f2 73 65 74 76 | 61 72 69 63 6f 6e 28 46 |.D!.setv|aricon(F|
|00004aa0| 75 6e 63 48 25 2c 46 75 | 6e 63 24 28 44 25 29 29 |uncH%,Fu|nc$(D%))|
|00004ab0| 0d 1b 4e 1d 41 75 78 46 | 75 6e 63 24 28 44 25 29 |..N.AuxF|unc$(D%)|
|00004ac0| 3d 41 75 78 46 75 6e 63 | 24 28 53 25 29 0d 1b 58 |=AuxFunc|$(S%)..X|
|00004ad0| 27 f2 73 65 74 76 61 72 | 69 63 6f 6e 28 41 75 78 |'.setvar|icon(Aux|
|00004ae0| 46 75 6e 63 48 25 2c 41 | 75 78 46 75 6e 63 24 28 |FuncH%,A|uxFunc$(|
|00004af0| 44 25 29 29 0d 1b 62 18 | e3 20 41 25 3d 31 20 b8 |D%))..b.|. A%=1 .|
|00004b00| 20 50 61 72 61 6d 73 25 | 28 44 25 29 0d 1b 6c 1d | Params%|(D%)..l.|
|00004b10| 50 61 72 61 6d 28 41 25 | 2c 44 25 29 3d 50 61 72 |Param(A%|,D%)=Par|
|00004b20| 61 6d 28 41 25 2c 53 25 | 29 0d 1b 76 34 f2 73 65 |am(A%,S%|)..v4.se|
|00004b30| 74 76 61 72 69 63 6f 6e | 28 50 61 72 61 6d 48 25 |tvaricon|(ParamH%|
|00004b40| 28 41 25 29 2c a4 5f 52 | 6f 75 6e 64 28 50 61 72 |(A%),._R|ound(Par|
|00004b50| 61 6d 28 41 25 2c 44 25 | 29 2c 35 29 29 0d 1b 80 |am(A%,D%|),5))...|
|00004b60| 08 ed 20 41 25 0d 1b 8a | 1e e7 20 50 61 72 61 6d |.. A%...|.. Param|
|00004b70| 73 25 28 44 25 29 3c 4d | 61 78 50 61 72 61 6d 73 |s%(D%)<M|axParams|
|00004b80| 25 20 8c 0d 1b 94 23 e3 | 20 41 25 3d 50 61 72 61 |% ....#.| A%=Para|
|00004b90| 6d 73 25 28 44 25 29 2b | 31 20 b8 20 4d 61 78 50 |ms%(D%)+|1 . MaxP|
|00004ba0| 61 72 61 6d 73 25 0d 1b | 9e 12 50 61 72 61 6d 28 |arams%..|..Param(|
|00004bb0| 41 25 2c 44 25 29 3d 30 | 0d 1b a8 1f f2 73 65 74 |A%,D%)=0|.....set|
|00004bc0| 76 61 72 69 63 6f 6e 28 | 50 61 72 61 6d 48 25 28 |varicon(|ParamH%(|
|00004bd0| 41 25 29 2c 22 22 29 0d | 1b b2 08 ed 20 41 25 0d |A%),"").|.... A%.|
|00004be0| 1b bc 05 cd 0d 1b c6 1b | 4d 54 69 74 6c 65 24 28 |........|MTitle$(|
|00004bf0| 44 25 29 3d 4d 54 69 74 | 6c 65 24 28 53 25 29 0d |D%)=MTit|le$(S%).|
|00004c00| 1b d0 13 62 6c 6f 63 6b | 32 25 21 30 3d 77 69 6e |...block|2%!0=win|
|00004c10| 64 25 0d 1b da 24 c8 99 | 20 22 57 69 6d 70 5f 47 |d%...$..| "Wimp_G|
|00004c20| 65 74 57 69 6e 64 6f 77 | 49 6e 66 6f 22 2c 2c 62 |etWindow|Info",,b|
|00004c30| 6c 6f 63 6b 32 25 0d 1b | e4 2c 4c 24 3d 22 4d 6f |lock2%..|.,L$="Mo|
|00004c40| 64 65 6c 20 22 2b c3 28 | 44 25 29 2b 22 20 3d 20 |del "+.(|D%)+" = |
|00004c50| 27 22 2b 4d 54 69 74 6c | 65 24 28 44 25 29 2b 22 |'"+MTitl|e$(D%)+"|
|00004c60| 27 22 0d 1b ee 14 24 28 | 62 6c 6f 63 6b 32 25 21 |'"....$(|block2%!|
|00004c70| 37 36 29 3d 4c 24 0d 1b | f8 11 62 6c 6f 63 6b 32 |76)=L$..|..block2|
|00004c80| 25 21 38 30 3d 2d 31 0d | 1c 02 14 62 6c 6f 63 6b |%!80=-1.|...block|
|00004c90| 32 25 21 38 34 3d a9 28 | 4c 24 29 0d 1c 0c 26 e7 |2%!84=.(|L$)...&.|
|00004ca0| 20 a4 69 63 6f 6e 5f 73 | 65 6c 65 63 74 65 64 28 | .icon_s|elected(|
|00004cb0| 44 69 73 70 6c 61 79 4d | 6f 64 65 6c 48 25 29 20 |DisplayM|odelH%) |
|00004cc0| 8c 0d 1c 16 31 f2 63 6c | 6f 73 65 5f 6f 70 65 6e |....1.cl|ose_open|
|00004cd0| 65 64 77 69 6e 64 6f 77 | 28 77 69 6e 64 25 29 3a |edwindow|(wind%):|
|00004ce0| f2 6f 70 65 6e 77 69 6e | 64 6f 77 28 77 69 6e 64 |.openwin|dow(wind|
|00004cf0| 25 29 0d 1c 20 05 cd 0d | 1c 2a 05 e1 0d 1c 34 05 |%).. ...|.*....4.|
|00004d00| 3a 0d 1c 3e 19 dd 20 f2 | 64 65 6c 65 74 65 5f 64 |:..>.. .|delete_d|
|00004d10| 61 74 61 73 65 74 28 53 | 25 29 0d 1c 48 0e ea 20 |ataset(S|%)..H.. |
|00004d20| 41 25 2c 77 69 6e 64 25 | 0d 1c 52 16 77 69 6e 64 |A%,wind%|..R.wind|
|00004d30| 25 3d 44 61 74 61 53 65 | 74 25 28 53 25 29 0d 1c |%=DataSe|t%(S%)..|
|00004d40| 5c 15 50 6f 69 6e 74 53 | 74 79 6c 65 25 28 53 25 |\.PointS|tyle%(S%|
|00004d50| 29 3d 30 0d 1c 66 15 43 | 75 72 76 65 53 74 79 6c |)=0..f.C|urveStyl|
|00004d60| 65 25 28 53 25 29 3d 30 | 0d 1c 70 17 f2 63 6c 65 |e%(S%)=0|..p..cle|
|00004d70| 61 72 73 74 79 6c 65 76 | 61 72 73 28 53 25 29 0d |arstylev|ars(S%).|
|00004d80| 1c 7a 13 55 73 65 4d 6f | 64 65 6c 25 28 53 25 29 |.z.UseMo|del%(S%)|
|00004d90| 3d a3 0d 1c 84 17 44 69 | 73 70 6c 61 79 4d 6f 64 |=.....Di|splayMod|
|00004da0| 65 6c 25 28 53 25 29 3d | a3 0d 1c 8e 1a 4d 6f 64 |el%(S%)=|.....Mod|
|00004db0| 65 6c 43 75 72 76 65 53 | 74 79 6c 65 25 28 53 25 |elCurveS|tyle%(S%|
|00004dc0| 29 3d 30 0d 1c 98 1d f2 | 64 65 73 65 6c 65 63 74 |)=0.....|deselect|
|00004dd0| 69 63 6f 6e 28 55 73 65 | 4d 6f 64 65 6c 48 25 29 |icon(Use|ModelH%)|
|00004de0| 0d 1c a2 24 f2 63 61 6e | 73 65 6c 65 63 74 69 63 |...$.can|selectic|
|00004df0| 6f 6e 28 44 69 73 70 6c | 61 79 4d 6f 64 65 6c 48 |on(Displ|ayModelH|
|00004e00| 25 2c a3 29 0d 1c ac 27 | 53 69 67 65 78 28 53 25 |%,.)...'|Sigex(S%|
|00004e10| 29 3d 30 3a f2 73 65 74 | 76 61 72 69 63 6f 6e 28 |)=0:.set|varicon(|
|00004e20| 53 69 67 65 78 48 25 2c | 22 22 29 0d 1c b6 40 44 |SigexH%,|"")...@D|
|00004e30| 61 74 61 46 69 6c 65 24 | 28 53 25 29 3d 22 46 69 |ataFile$|(S%)="Fi|
|00004e40| 6c 65 20 3d 22 3a f2 73 | 65 74 76 61 72 69 63 6f |le =":.s|etvarico|
|00004e50| 6e 28 44 61 74 61 46 69 | 6c 65 48 25 2c 44 61 74 |n(DataFi|leH%,Dat|
|00004e60| 61 46 69 6c 65 24 28 53 | 25 29 29 0d 1c c0 14 77 |aFile$(S|%))....w|
|00004e70| 69 6e 64 25 3d 4d 6f 64 | 65 6c 25 28 53 25 29 0d |ind%=Mod|el%(S%).|
|00004e80| 1c ca 36 50 61 72 61 6d | 73 25 28 53 25 29 3d 31 |..6Param|s%(S%)=1|
|00004e90| 3a f2 73 65 74 76 61 72 | 69 63 6f 6e 28 50 61 72 |:.setvar|icon(Par|
|00004ea0| 61 6d 73 48 25 2c c3 28 | 50 61 72 61 6d 73 25 28 |amsH%,.(|Params%(|
|00004eb0| 53 25 29 29 29 0d 1c d4 | 27 46 75 6e 63 24 28 53 |S%)))...|'Func$(S|
|00004ec0| 25 29 3d 22 22 3a f2 73 | 65 74 76 61 72 69 63 6f |%)="":.s|etvarico|
|00004ed0| 6e 28 46 75 6e 63 48 25 | 2c 22 22 29 0d 1c de 2d |n(FuncH%|,"")...-|
|00004ee0| 41 75 78 46 75 6e 63 24 | 28 53 25 29 3d 22 22 3a |AuxFunc$|(S%)="":|
|00004ef0| f2 73 65 74 76 61 72 69 | 63 6f 6e 28 41 75 78 46 |.setvari|con(AuxF|
|00004f00| 75 6e 63 48 25 2c 22 22 | 29 0d 1c e8 3e e3 20 41 |uncH%,""|)...>. A|
|00004f10| 25 3d 31 20 b8 20 38 3a | 50 61 72 61 6d 28 41 25 |%=1 . 8:|Param(A%|
|00004f20| 2c 53 25 29 3d 30 3a f2 | 73 65 74 76 61 72 69 63 |,S%)=0:.|setvaric|
|00004f30| 6f 6e 28 50 61 72 61 6d | 48 25 28 41 25 29 2c 22 |on(Param|H%(A%),"|
|00004f40| 22 29 3a ed 20 41 25 0d | 1c f2 05 e1 0d 1c fc 05 |"):. A%.|........|
|00004f50| 3a 0d 1d 06 12 dd 20 f2 | 6d 65 73 73 61 67 65 28 |:..... .|message(|
|00004f60| 62 25 29 0d 1d 10 0e c8 | 8e 20 62 25 21 31 36 20 |b%).....|. b%!16 |
|00004f70| ca 0d 1d 1a 0f c9 20 30 | 3a 71 75 69 74 25 3d b9 |...... 0|:quit%=.|
|00004f80| 0d 1d 24 15 c9 20 31 3a | f2 64 61 74 61 73 61 76 |..$.. 1:|.datasav|
|00004f90| 65 28 62 25 29 0d 1d 2e | 18 c9 20 32 3a f2 64 61 |e(b%)...|.. 2:.da|
|00004fa0| 74 61 73 61 76 65 61 63 | 6b 28 62 25 29 0d 1d 38 |tasaveac|k(b%)..8|
|00004fb0| 15 c9 20 33 3a f2 64 61 | 74 61 6c 6f 61 64 28 62 |.. 3:.da|taload(b|
|00004fc0| 25 29 0d 1d 42 0a c9 20 | 26 35 30 32 0d 1d 4c 1a |%)..B.. |&502..L.|
|00004fd0| 20 62 25 21 31 32 3d 62 | 25 21 38 3a 62 25 21 31 | b%!12=b|%!8:b%!1|
|00004fe0| 36 3d 26 35 30 33 0d 1d | 56 28 20 68 65 6c 70 25 |6=&503..|V( help%|
|00004ff0| 3d 62 25 2b 32 30 3a 77 | 69 6e 64 25 3d 62 25 21 |=b%+20:w|ind%=b%!|
|00005000| 33 32 3a 69 63 6f 6e 25 | 3d 62 25 21 33 36 0d 1d |32:icon%|=b%!36..|
|00005010| 60 20 20 68 65 6c 70 24 | 3d a4 67 65 74 68 65 6c |`  help$|=.gethel|
|00005020| 70 28 77 69 6e 64 25 2c | 69 63 6f 6e 25 29 0d 1d |p(wind%,|icon%)..|
|00005030| 6a 28 20 24 68 65 6c 70 | 25 3d 68 65 6c 70 24 2b |j( $help|%=help$+|
|00005040| 22 7c 4d 22 3a 68 65 6c | 70 25 2b 3d a9 28 68 65 |"|M":hel|p%+=.(he|
|00005050| 6c 70 24 29 2b 32 0d 1d | 74 21 20 3f 68 65 6c 70 |lp$)+2..|t! ?help|
|00005060| 25 3d 30 3a 21 62 25 3d | 28 68 65 6c 70 25 2b 34 |%=0:!b%=|(help%+4|
|00005070| 2d 62 25 29 80 ac 33 0d | 1d 7e 25 20 c8 99 20 22 |-b%)..3.|.~% .. "|
|00005080| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00005090| 22 2c 31 37 2c 62 25 2c | 62 25 21 34 0d 1d 88 05 |",17,b%,|b%!4....|
|000050a0| cb 0d 1d 92 05 e1 0d 1d | 9c 05 3a 0d 1d a6 1b dd |........|..:.....|
|000050b0| 20 a4 67 65 74 68 65 6c | 70 28 77 69 6e 64 25 2c | .gethel|p(wind%,|
|000050c0| 69 63 6f 6e 25 29 0d 1d | b0 08 ea 20 68 24 0d 1d |icon%)..|... h$..|
|000050d0| ba 0e c8 8e 20 77 69 6e | 64 25 20 ca 0d 1d c4 09 |.... win|d% .....|
|000050e0| c9 20 2d 32 3a 0d 1d ce | cd 20 e7 20 69 63 6f 6e |. -2:...|. . icon|
|000050f0| 25 3d 73 69 63 6f 6e 25 | 20 8c 20 68 24 3d 22 54 |%=sicon%| . h$="T|
|00005100| 68 69 73 20 69 73 20 74 | 68 65 20 22 2b 74 69 74 |his is t|he "+tit|
|00005110| 6c 65 24 2b 22 20 61 70 | 70 6c 69 63 61 74 69 6f |le$+" ap|plicatio|
|00005120| 6e 2e 7c 4d 43 6c 69 63 | 6b 20 77 69 74 68 20 53 |n.|MClic|k with S|
|00005130| 45 4c 45 43 54 20 74 6f | 20 6f 70 65 6e 20 6d 61 |ELECT to| open ma|
|00005140| 69 6e 20 77 69 6e 64 6f | 77 2c 20 6f 72 20 77 69 |in windo|w, or wi|
|00005150| 74 68 20 4d 45 4e 55 20 | 66 6f 72 20 61 6e 20 69 |th MENU |for an i|
|00005160| 63 6f 6e 62 61 72 20 6d | 65 6e 75 2e 7c 4d 54 6f |conbar m|enu.|MTo|
|00005170| 20 6c 6f 61 64 20 61 20 | 6e 65 77 20 27 21 53 63 | load a |new '!Sc|
|00005180| 69 47 72 61 70 68 27 20 | 64 61 74 61 20 66 69 6c |iGraph' |data fil|
|00005190| 65 2c 20 64 72 61 67 20 | 69 74 27 73 20 69 63 6f |e, drag |it's ico|
|000051a0| 6e 20 6f 6e 74 6f 20 74 | 68 69 73 20 69 63 6f 6e |n onto t|his icon|
|000051b0| 2e 22 0d 1d d8 0b c9 20 | 49 6e 66 6f 25 0d 1d e2 |."..... |Info%...|
|000051c0| 0f 20 c8 8e 20 69 63 6f | 6e 25 20 ca 0d 1d ec 97 |. .. ico|n% .....|
|000051d0| 20 c9 20 33 3a 20 68 24 | 3d 22 54 68 69 73 20 61 | . 3: h$|="This a|
|000051e0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 61 69 64 73 20 |pplicati|on aids |
|000051f0| 74 68 65 20 70 72 6f 64 | 75 63 74 69 6f 6e 20 6f |the prod|uction o|
|00005200| 66 20 53 63 69 65 6e 74 | 69 66 69 63 20 47 72 61 |f Scient|ific Gra|
|00005210| 70 68 73 2e 7c 4d 49 74 | 20 70 72 6f 63 65 73 73 |phs.|MIt| process|
|00005220| 65 73 20 27 53 63 69 47 | 72 61 70 68 20 66 6f 72 |es 'SciG|raph for|
|00005230| 6d 61 74 27 20 64 61 74 | 61 20 66 69 6c 65 73 20 |mat' dat|a files |
|00005240| 61 6e 64 20 70 72 6f 64 | 75 63 65 73 20 61 20 44 |and prod|uces a D|
|00005250| 72 61 77 46 69 6c 65 20 | 61 73 20 6f 75 74 70 75 |rawFile |as outpu|
|00005260| 74 2e 22 0d 1d f6 b5 20 | c9 20 35 3a 20 68 24 3d |t.".... |. 5: h$=|
|00005270| 22 54 68 65 20 61 75 74 | 68 6f 72 2c 20 44 72 2e |"The aut|hor, Dr.|
|00005280| 20 52 6f 64 65 72 69 63 | 6b 20 46 65 72 67 75 73 | Roderic|k Fergus|
|00005290| 6f 6e 2c 20 63 61 6e 20 | 62 65 20 63 6f 6e 74 61 |on, can |be conta|
|000052a0| 63 74 65 64 20 61 74 20 | 3a 2d 7c 4d 48 65 72 69 |cted at |:-|MHeri|
|000052b0| 6f 74 2d 57 61 74 74 20 | 55 6e 69 76 65 72 73 69 |ot-Watt |Universi|
|000052c0| 74 79 20 43 68 65 6d 69 | 73 74 72 79 20 44 65 70 |ty Chemi|stry Dep|
|000052d0| 61 72 74 6d 65 6e 74 20 | 28 45 64 69 6e 62 75 72 |artment |(Edinbur|
|000052e0| 67 68 2c 20 53 63 6f 74 | 6c 61 6e 64 29 7c 4d 6f |gh, Scot|land)|Mo|
|000052f0| 6e 20 30 33 31 2d 34 34 | 39 2d 35 31 31 31 2c 20 |n 031-44|9-5111, |
|00005300| 65 78 74 65 6e 73 69 6f | 6e 20 34 31 30 39 20 6f |extensio|n 4109 o|
|00005310| 72 20 34 32 33 39 2e 22 | 0d 1e 00 2a 20 c9 20 37 |r 4239."|...* . 7|
|00005320| 3a 20 68 24 3d 22 54 68 | 69 73 20 69 73 20 74 68 |: h$="Th|is is th|
|00005330| 65 20 6c 61 74 65 73 74 | 20 76 65 72 73 69 6f 6e |e latest| version|
|00005340| 2e 22 0d 1e 0a 06 20 7f | 0d 1e 14 2d 20 68 24 3d |.".... .|...- h$=|
|00005350| 22 54 68 69 73 20 69 73 | 20 74 68 65 20 22 2b 74 |"This is| the "+t|
|00005360| 69 74 6c 65 24 2b 22 20 | 61 70 70 6c 69 63 61 74 |itle$+" |applicat|
|00005370| 69 6f 6e 2e 22 0d 1e 1e | 06 20 cb 0d 1e 28 0c c9 |ion."...|. ...(..|
|00005380| 20 53 63 61 6c 65 25 0d | 1e 32 0f 20 c8 8e 20 69 | Scale%.|.2. .. i|
|00005390| 63 6f 6e 25 20 ca 0d 1e | 3c 79 20 c9 20 30 3a 20 |con% ...|<y . 0: |
|000053a0| e7 20 44 61 74 61 53 65 | 74 73 25 3d 31 20 8c 20 |. DataSe|ts%=1 . |
|000053b0| 68 31 24 3d 22 54 68 65 | 72 65 20 69 73 20 6e 6f |h1$="The|re is no|
|000053c0| 77 20 22 2b c3 28 44 61 | 74 61 53 65 74 73 25 29 |w "+.(Da|taSets%)|
|000053d0| 2b 22 20 64 61 74 61 20 | 73 65 74 20 22 20 8b 20 |+" data |set " . |
|000053e0| 68 31 24 3d 22 54 68 65 | 72 65 20 61 72 65 20 6e |h1$="The|re are n|
|000053f0| 6f 77 20 22 2b c3 28 44 | 61 74 61 53 65 74 73 25 |ow "+.(D|ataSets%|
|00005400| 29 2b 22 20 64 61 74 61 | 20 73 65 74 73 20 22 0d |)+" data| sets ".|
|00005410| 1e 46 4d 20 20 68 24 3d | 68 31 24 2b 22 6c 6f 61 |.FM  h$=|h1$+"loa|
|00005420| 64 65 64 20 69 6e 74 6f | 20 53 63 69 67 72 61 70 |ded into| Scigrap|
|00005430| 68 2e 7c 4d 50 6c 65 61 | 73 65 20 4e 6f 74 65 2e |h.|MPlea|se Note.|
|00005440| 20 54 68 65 20 6d 61 78 | 69 6d 75 6d 20 61 6c 6c | The max|imum all|
|00005450| 6f 77 65 64 20 69 73 20 | 31 30 2e 22 0d 1e 50 30 |owed is |10."..P0|
|00005460| 20 c9 20 33 2c 34 3a 20 | 68 24 3d 22 45 6e 74 65 | . 3,4: |h$="Ente|
|00005470| 72 20 74 68 65 20 6d 69 | 6e 69 6d 75 6d 20 58 20 |r the mi|nimum X |
|00005480| 76 61 6c 75 65 20 68 65 | 72 65 2e 22 0d 1e 5a 30 |value he|re."..Z0|
|00005490| 20 c9 20 35 2c 36 3a 20 | 68 24 3d 22 45 6e 74 65 | . 5,6: |h$="Ente|
|000054a0| 72 20 74 68 65 20 6d 61 | 78 69 6d 75 6d 20 58 20 |r the ma|ximum X |
|000054b0| 76 61 6c 75 65 20 68 65 | 72 65 2e 22 0d 1e 64 34 |value he|re."..d4|
|000054c0| 20 c9 20 37 2c 38 3a 20 | 68 24 3d 22 45 6e 74 65 | . 7,8: |h$="Ente|
|000054d0| 72 20 74 68 65 20 23 20 | 6f 66 20 74 69 63 6b 73 |r the # |of ticks|
|000054e0| 20 6f 6e 20 74 68 65 20 | 58 20 61 78 69 73 2e 22 | on the |X axis."|
|000054f0| 0d 1e 6e 31 20 c9 20 39 | 2c 31 30 3a 20 68 24 3d |..n1 . 9|,10: h$=|
|00005500| 22 45 6e 74 65 72 20 74 | 68 65 20 6d 69 6e 69 6d |"Enter t|he minim|
|00005510| 75 6d 20 59 20 76 61 6c | 75 65 20 68 65 72 65 2e |um Y val|ue here.|
|00005520| 22 0d 1e 78 32 20 c9 20 | 31 31 2c 31 32 3a 20 68 |"..x2 . |11,12: h|
|00005530| 24 3d 22 45 6e 74 65 72 | 20 74 68 65 20 6d 61 78 |$="Enter| the max|
|00005540| 69 6d 75 6d 20 59 20 76 | 61 6c 75 65 20 68 65 72 |imum Y v|alue her|
|00005550| 65 2e 22 0d 1e 82 36 20 | c9 20 31 33 2c 31 34 3a |e."...6 |. 13,14:|
|00005560| 20 68 24 3d 22 45 6e 74 | 65 72 20 74 68 65 20 23 | h$="Ent|er the #|
|00005570| 20 6f 66 20 74 69 63 6b | 73 20 6f 6e 20 74 68 65 | of tick|s on the|
|00005580| 20 59 20 61 78 69 73 2e | 22 0d 1e 8c 3c 20 c9 20 | Y axis.|"...< . |
|00005590| 31 35 3a 20 68 24 3d 22 | 54 68 69 73 20 69 73 20 |15: h$="|This is |
|000055a0| 74 68 65 20 63 61 6c 63 | 75 6c 61 74 65 64 20 58 |the calc|ulated X|
|000055b0| 20 61 78 69 73 20 74 69 | 63 6b 20 69 6e 74 65 72 | axis ti|ck inter|
|000055c0| 76 61 6c 2e 22 0d 1e 96 | 3c 20 c9 20 31 36 3a 20 |val."...|< . 16: |
|000055d0| 68 24 3d 22 54 68 69 73 | 20 69 73 20 74 68 65 20 |h$="This| is the |
|000055e0| 63 61 6c 63 75 6c 61 74 | 65 64 20 59 20 61 78 69 |calculat|ed Y axi|
|000055f0| 73 20 74 69 63 6b 20 69 | 6e 74 65 72 76 61 6c 2e |s tick i|nterval.|
|00005600| 22 0d 1e a0 4a 20 c9 20 | 31 37 3a 20 68 24 3d 22 |"...J . |17: h$="|
|00005610| 43 6c 69 63 6b 20 68 65 | 72 65 20 74 6f 20 74 75 |Click he|re to tu|
|00005620| 72 6e 20 74 68 65 20 61 | 75 74 6f 6d 61 74 69 63 |rn the a|utomatic|
|00005630| 20 73 63 61 6c 69 6e 67 | 20 6f 70 74 69 6f 6e 20 | scaling| option |
|00005640| 6f 66 66 20 6f 72 20 6f | 6e 2e 22 0d 1e aa 06 20 |off or o|n.".... |
|00005650| 7f 0d 1e b4 5c 20 68 24 | 3d 22 54 68 69 73 20 69 |....\ h$|="This i|
|00005660| 73 20 74 68 65 20 27 53 | 63 61 6c 65 20 44 61 74 |s the 'S|cale Dat|
|00005670| 61 27 20 77 69 6e 64 6f | 77 2e 20 43 6c 69 63 6b |a' windo|w. Click|
|00005680| 20 68 65 72 65 20 77 69 | 74 68 20 4d 45 4e 55 20 | here wi|th MENU |
|00005690| 66 6f 72 20 74 68 65 20 | 72 65 73 74 20 6f 66 20 |for the |rest of |
|000056a0| 74 68 65 20 6f 70 74 69 | 6f 6e 73 2e 22 0d 1e be |the opti|ons."...|
|000056b0| 06 20 cb 0d 1e c8 0d c9 | 20 4c 65 67 65 6e 64 25 |. ......| Legend%|
|000056c0| 0d 1e d2 0f 20 c8 8e 20 | 69 63 6f 6e 25 20 ca 0d |.... .. |icon% ..|
|000056d0| 1e dc 2c 20 c9 20 30 2c | 31 3a 20 68 24 3d 22 45 |.., . 0,|1: h$="E|
|000056e0| 6e 74 65 72 20 74 68 65 | 20 67 72 61 70 68 20 74 |nter the| graph t|
|000056f0| 69 74 6c 65 20 68 65 72 | 65 2e 22 0d 1e e6 2d 20 |itle her|e."...- |
|00005700| c9 20 32 2c 33 3a 20 68 | 24 3d 22 45 6e 74 65 72 |. 2,3: h|$="Enter|
|00005710| 20 74 68 65 20 58 20 61 | 78 69 73 20 74 69 74 6c | the X a|xis titl|
|00005720| 65 20 68 65 72 65 2e 22 | 0d 1e f0 2d 20 c9 20 34 |e here."|...- . 4|
|00005730| 2c 35 3a 20 68 24 3d 22 | 45 6e 74 65 72 20 74 68 |,5: h$="|Enter th|
|00005740| 65 20 59 20 61 78 69 73 | 20 74 69 74 6c 65 20 68 |e Y axis| title h|
|00005750| 65 72 65 2e 22 0d 1e fa | 56 20 c9 20 36 3a 20 68 |ere."...|V . 6: h|
|00005760| 24 3d 22 54 68 69 73 20 | 69 63 6f 6e 20 74 6f 67 |$="This |icon tog|
|00005770| 67 6c 65 73 20 53 63 69 | 65 6e 74 69 66 69 63 20 |gles Sci|entific |
|00005780| 4e 6f 74 61 74 69 6f 6e | 20 6f 6e 20 6f 72 20 6f |Notation| on or o|
|00005790| 66 66 20 66 6f 72 20 74 | 68 65 20 58 20 61 78 69 |ff for t|he X axi|
|000057a0| 73 20 6e 75 6d 62 65 72 | 73 2e 22 0d 1f 04 56 20 |s number|s."...V |
|000057b0| c9 20 37 3a 20 68 24 3d | 22 54 68 69 73 20 69 63 |. 7: h$=|"This ic|
|000057c0| 6f 6e 20 74 6f 67 67 6c | 65 73 20 53 63 69 65 6e |on toggl|es Scien|
|000057d0| 74 69 66 69 63 20 4e 6f | 74 61 74 69 6f 6e 20 6f |tific No|tation o|
|000057e0| 6e 20 6f 72 20 6f 66 66 | 20 66 6f 72 20 74 68 65 |n or off| for the|
|000057f0| 20 59 20 61 78 69 73 20 | 6e 75 6d 62 65 72 73 2e | Y axis |numbers.|
|00005800| 22 0d 1f 0e 06 20 7f 0d | 1f 18 2a 20 68 24 3d 22 |".... ..|..* h$="|
|00005810| 54 68 69 73 20 69 73 20 | 74 68 65 20 47 72 61 70 |This is |the Grap|
|00005820| 68 20 4c 65 67 65 6e 64 | 20 77 69 6e 64 6f 77 2e |h Legend| window.|
|00005830| 22 0d 1f 22 06 20 cb 0d | 1f 2c 7e c9 20 44 61 74 |"..". ..|.,~. Dat|
|00005840| 61 53 65 74 25 28 31 29 | 2c 44 61 74 61 53 65 74 |aSet%(1)|,DataSet|
|00005850| 25 28 32 29 2c 44 61 74 | 61 53 65 74 25 28 33 29 |%(2),Dat|aSet%(3)|
|00005860| 2c 44 61 74 61 53 65 74 | 25 28 34 29 2c 44 61 74 |,DataSet|%(4),Dat|
|00005870| 61 53 65 74 25 28 35 29 | 2c 44 61 74 61 53 65 74 |aSet%(5)|,DataSet|
|00005880| 25 28 36 29 2c 44 61 74 | 61 53 65 74 25 28 37 29 |%(6),Dat|aSet%(7)|
|00005890| 2c 44 61 74 61 53 65 74 | 25 28 38 29 2c 44 61 74 |,DataSet|%(8),Dat|
|000058a0| 61 53 65 74 25 28 39 29 | 2c 44 61 74 61 53 65 74 |aSet%(9)|,DataSet|
|000058b0| 25 28 31 30 29 0d 1f 36 | 0f 20 c8 8e 20 69 63 6f |%(10)..6|. .. ico|
|000058c0| 6e 25 20 ca 0d 1f 40 5f | 20 c9 20 31 2c 34 2c 37 |n% ...@_| . 1,4,7|
|000058d0| 2c 38 2c 39 2c 31 30 2c | 31 31 2c 31 32 2c 31 33 |,8,9,10,|11,12,13|
|000058e0| 2c 31 34 2c 31 35 2c 31 | 36 2c 31 37 2c 31 38 2c |,14,15,1|6,17,18,|
|000058f0| 31 39 2c 32 30 3a 20 68 | 24 3d 22 53 65 6c 65 63 |19,20: h|$="Selec|
|00005900| 74 20 61 20 70 6f 69 6e | 74 20 73 74 79 6c 65 20 |t a poin|t style |
|00005910| 66 6f 72 20 74 68 69 73 | 20 64 61 74 61 20 73 65 |for this| data se|
|00005920| 74 2e 22 0d 1f 4a 44 20 | c9 20 32 2c 35 2c 32 33 |t."..JD |. 2,5,23|
|00005930| 2c 32 34 2c 32 35 2c 32 | 36 3a 20 68 24 3d 22 53 |,24,25,2|6: h$="S|
|00005940| 65 6c 65 63 74 20 61 20 | 63 75 72 76 65 20 73 74 |elect a |curve st|
|00005950| 79 6c 65 20 66 6f 72 20 | 74 68 69 73 20 64 61 74 |yle for |this dat|
|00005960| 61 20 73 65 74 2e 22 0d | 1f 54 46 20 c9 20 33 2c |a set.".|.TF . 3,|
|00005970| 36 2c 32 37 2c 32 38 3a | 20 68 24 3d 22 53 65 6c |6,27,28:| h$="Sel|
|00005980| 65 63 74 20 61 20 63 75 | 72 76 65 20 73 74 79 6c |ect a cu|rve styl|
|00005990| 65 20 66 6f 72 20 74 68 | 65 20 74 68 65 6f 72 65 |e for th|e theore|
|000059a0| 74 69 63 61 6c 20 6d 6f | 64 65 6c 2e 22 0d 1f 5e |tical mo|del."..^|
|000059b0| 4c 20 c9 20 32 39 3a 20 | 68 24 3d 22 43 6c 69 63 |L . 29: |h$="Clic|
|000059c0| 6b 20 68 65 72 65 20 74 | 6f 20 75 73 65 20 61 20 |k here t|o use a |
|000059d0| 63 75 72 76 65 20 6f 62 | 74 61 69 6e 65 64 20 66 |curve ob|tained f|
|000059e0| 72 6f 6d 20 61 20 74 68 | 65 6f 72 65 74 69 63 61 |rom a th|eoretica|
|000059f0| 6c 20 6d 6f 64 65 6c 2e | 22 0d 1f 68 55 20 c9 20 |l model.|"..hU . |
|00005a00| 33 30 3a 20 68 24 3d 22 | 43 6c 69 63 6b 20 68 65 |30: h$="|Click he|
|00005a10| 72 65 20 74 6f 20 64 69 | 73 70 6c 61 79 20 74 68 |re to di|splay th|
|00005a20| 65 20 74 68 65 6f 72 65 | 74 69 63 61 6c 20 6d 6f |e theore|tical mo|
|00005a30| 64 65 6c 20 77 69 6e 64 | 6f 77 20 66 6f 72 20 74 |del wind|ow for t|
|00005a40| 68 69 73 20 64 61 74 61 | 20 73 65 74 2e 22 0d 1f |his data| set."..|
|00005a50| 72 42 20 c9 20 30 3a 20 | 68 24 3d 22 54 68 69 73 |rB . 0: |h$="This|
|00005a60| 20 69 73 20 74 68 65 20 | 63 75 72 72 65 6e 74 6c | is the |currentl|
|00005a70| 79 20 6c 6f 61 64 65 64 | 20 66 69 6c 65 20 66 6f |y loaded| file fo|
|00005a80| 72 20 74 68 69 73 20 64 | 61 74 61 73 65 74 2e 22 |r this d|ataset."|
|00005a90| 0d 1f 7c 99 20 c9 20 32 | 31 2c 32 32 3a 20 68 24 |..|. . 2|1,22: h$|
|00005aa0| 3d 22 45 6e 74 65 72 20 | 74 68 65 20 73 74 61 6e |="Enter |the stan|
|00005ab0| 64 61 72 64 20 65 72 72 | 6f 72 20 66 6f 72 20 74 |dard err|or for t|
|00005ac0| 68 65 20 64 61 74 61 2e | 7c 4d 49 66 20 69 6e 64 |he data.||MIf ind|
|00005ad0| 69 76 69 64 75 61 6c 20 | 65 72 72 6f 72 20 76 61 |ividual |error va|
|00005ae0| 6c 75 65 73 20 77 65 72 | 65 20 73 70 65 63 69 66 |lues wer|e specif|
|00005af0| 69 65 64 20 66 6f 72 20 | 65 61 63 68 20 64 61 74 |ied for |each dat|
|00005b00| 61 20 70 6f 69 6e 74 7c | 4d 74 68 65 6e 20 74 68 |a point||Mthen th|
|00005b10| 69 73 20 6f 70 74 69 6f | 6e 20 69 73 20 67 72 65 |is optio|n is gre|
|00005b20| 79 65 64 20 6f 75 74 2e | 22 0d 1f 86 06 20 7f 0d |yed out.|".... ..|
|00005b30| 1f 90 4d 20 68 24 3d 22 | 59 6f 75 20 63 61 6e 20 |..M h$="|You can |
|00005b40| 61 6c 74 65 72 20 74 68 | 65 20 73 74 79 6c 65 20 |alter th|e style |
|00005b50| 6f 66 20 74 68 65 20 64 | 61 74 61 20 70 72 65 73 |of the d|ata pres|
|00005b60| 65 6e 74 61 74 69 6f 6e | 20 75 73 69 6e 67 20 74 |entation| using t|
|00005b70| 68 69 73 20 77 69 6e 64 | 6f 77 2e 22 0d 1f 9a 06 |his wind|ow."....|
|00005b80| 20 cb 0d 1f a4 6a c9 20 | 4d 6f 64 65 6c 25 28 31 | ....j. |Model%(1|
|00005b90| 29 2c 4d 6f 64 65 6c 25 | 28 32 29 2c 4d 6f 64 65 |),Model%|(2),Mode|
|00005ba0| 6c 25 28 33 29 2c 4d 6f | 64 65 6c 25 28 34 29 2c |l%(3),Mo|del%(4),|
|00005bb0| 4d 6f 64 65 6c 25 28 35 | 29 2c 4d 6f 64 65 6c 25 |Model%(5|),Model%|
|00005bc0| 28 36 29 2c 4d 6f 64 65 | 6c 25 28 37 29 2c 4d 6f |(6),Mode|l%(7),Mo|
|00005bd0| 64 65 6c 25 28 38 29 2c | 4d 6f 64 65 6c 25 28 39 |del%(8),|Model%(9|
|00005be0| 29 2c 4d 6f 64 65 6c 25 | 28 31 30 29 0d 1f ae 0f |),Model%|(10)....|
|00005bf0| 20 c8 8e 20 69 63 6f 6e | 25 20 ca 0d 1f b8 34 20 | .. icon|% ....4 |
|00005c00| c9 20 30 2c 31 3a 68 24 | 3d 22 45 6e 74 65 72 20 |. 0,1:h$|="Enter |
|00005c10| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 70 61 |the numb|er of pa|
|00005c20| 72 61 6d 65 74 65 72 73 | 20 68 65 72 65 2e 22 0d |rameters| here.".|
|00005c30| 1f c2 4e 20 c9 20 32 2c | 33 3a 68 24 3d 22 45 6e |..N . 2,|3:h$="En|
|00005c40| 74 65 72 20 74 68 65 20 | 6d 61 69 6e 20 6d 6f 64 |ter the |main mod|
|00005c50| 65 6c 20 66 75 6e 63 74 | 69 6f 6e 20 68 65 72 65 |el funct|ion here|
|00005c60| 2e 20 57 68 65 72 65 20 | 66 3d 66 28 58 2c 55 2c |. Where |f=f(X,U,|
|00005c70| 50 31 2c 50 32 2e 2e 2e | 50 38 29 2e 22 0d 1f cc |P1,P2...|P8)."...|
|00005c80| 8f 20 c9 20 34 2c 35 3a | 68 24 3d 22 45 6e 74 65 |. . 4,5:|h$="Ente|
|00005c90| 72 20 74 68 65 20 61 75 | 78 69 6c 69 61 72 79 20 |r the au|xiliary |
|00005ca0| 66 75 6e 63 74 69 6f 6e | 20 68 65 72 65 2e 20 57 |function| here. W|
|00005cb0| 68 65 72 65 20 55 3d 55 | 28 58 2c 50 31 2c 50 32 |here U=U|(X,P1,P2|
|00005cc0| 2e 2e 2e 50 38 29 2e 7c | 4d 54 68 65 20 61 75 78 |...P8).||MThe aux|
|00005cd0| 69 6c 69 61 72 79 20 66 | 75 6e 63 74 69 6f 6e 20 |iliary f|unction |
|00005ce0| 63 61 6e 20 67 72 65 61 | 74 6c 79 20 73 69 6d 70 |can grea|tly simp|
|00005cf0| 6c 69 66 79 20 74 68 65 | 20 6d 6f 64 65 6c 20 64 |lify the| model d|
|00005d00| 65 73 63 72 69 70 74 69 | 6f 6e 2e 22 0d 1f d6 55 |escripti|on."...U|
|00005d10| 20 c9 20 36 2c 37 2c 38 | 2c 39 2c 31 30 2c 31 31 | . 6,7,8|,9,10,11|
|00005d20| 2c 31 32 2c 31 33 2c 31 | 34 2c 31 35 2c 31 36 2c |,12,13,1|4,15,16,|
|00005d30| 31 37 2c 31 38 2c 31 39 | 2c 32 30 2c 32 31 3a 68 |17,18,19|,20,21:h|
|00005d40| 24 3d 22 45 6e 74 65 72 | 20 61 20 70 61 72 61 6d |$="Enter| a param|
|00005d50| 65 74 65 72 20 76 61 6c | 75 65 20 68 65 72 65 2e |eter val|ue here.|
|00005d60| 22 0d 1f e0 06 20 7f 0d | 1f ea 58 20 68 24 3d 22 |".... ..|..X h$="|
|00005d70| 59 6f 75 20 63 61 6e 20 | 61 6c 74 65 72 20 74 68 |You can |alter th|
|00005d80| 65 20 74 68 65 6f 72 65 | 74 69 63 61 6c 20 6d 6f |e theore|tical mo|
|00005d90| 64 65 6c 20 66 75 6e 63 | 74 69 6f 6e 73 20 61 6e |del func|tions an|
|00005da0| 64 20 70 61 72 61 6d 65 | 74 65 72 73 20 77 69 74 |d parame|ters wit|
|00005db0| 68 20 74 68 69 73 20 77 | 69 6e 64 6f 77 2e 22 0d |h this w|indow.".|
|00005dc0| 1f f4 06 20 cb 0d 1f fe | 05 cb 0d 20 08 07 3d 68 |... ....|... ..=h|
|00005dd0| 24 0d 20 12 05 3a 0d 20 | 1c 13 dd 20 f2 64 61 74 |$. ..:. |... .dat|
|00005de0| 61 73 61 76 65 28 62 25 | 29 0d 20 26 27 f4 20 66 |asave(b%|). &'. f|
|00005df0| 69 72 73 74 20 68 61 6c | 66 20 6f 66 20 6c 6f 61 |irst hal|f of loa|
|00005e00| 64 20 64 61 74 61 20 70 | 72 6f 74 6f 63 6f 6c 2e |d data p|rotocol.|
|00005e10| 0d 20 30 0e 62 25 21 31 | 32 3d 62 25 21 38 0d 20 |. 0.b%!1|2=b%!8. |
|00005e20| 3a 27 f4 20 73 65 74 20 | 75 70 20 66 6f 72 20 27 |:'. set |up for '|
|00005e30| 64 61 74 61 73 61 76 65 | 61 63 6b 27 20 6d 65 73 |datasave|ack' mes|
|00005e40| 73 61 67 65 2e 0d 20 44 | 35 f4 20 64 65 73 74 69 |sage.. D|5. desti|
|00005e50| 6e 61 74 69 6f 6e 20 77 | 69 6c 6c 20 72 65 70 6c |nation w|ill repl|
|00005e60| 79 20 77 69 74 68 20 27 | 64 61 74 61 6c 6f 61 64 |y with '|dataload|
|00005e70| 27 20 6d 65 73 73 61 67 | 65 2e 0d 20 4e 0b 62 25 |' messag|e.. N.b%|
|00005e80| 21 31 36 3d 32 0d 20 58 | 15 66 66 24 3d a4 67 6e |!16=2. X|.ff$=.gn|
|00005e90| 61 6d 65 28 62 25 2b 34 | 34 29 0d 20 62 24 c8 99 |ame(b%+4|4). b$..|
|00005ea0| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00005eb0| 67 65 22 2c 31 37 2c 62 | 25 2c 62 25 21 34 0d 20 |ge",17,b|%,b%!4. |
|00005ec0| 6c 0f 6d 79 72 65 66 25 | 3d 62 25 21 38 0d 20 76 |l.myref%|=b%!8. v|
|00005ed0| 0c 72 65 74 72 79 25 3d | b9 0d 20 80 05 e1 0d 20 |.retry%=|.. .... |
|00005ee0| 8a 05 3a 0d 20 94 16 dd | 20 f2 64 61 74 61 73 61 |..:. ...| .datasa|
|00005ef0| 76 65 61 63 6b 28 62 25 | 29 0d 20 9e 0b ea 20 66 |veack(b%|). ... f|
|00005f00| 69 6c 65 24 0d 20 a8 14 | e7 20 62 25 21 31 32 3d |ile$. ..|. b%!12=|
|00005f10| 6d 79 72 65 66 25 20 8c | 0d 20 b2 17 66 69 6c 65 |myref% .|. ..file|
|00005f20| 24 3d a4 67 6e 61 6d 65 | 28 62 25 2b 34 34 29 0d |$=.gname|(b%+44).|
|00005f30| 20 bc 21 e7 20 66 69 6c | 65 24 3d 22 22 20 8c 20 | .!. fil|e$="" . |
|00005f40| 66 69 6c 65 24 3d 22 44 | 72 61 77 46 69 6c 65 22 |file$="D|rawFile"|
|00005f50| 0d 20 c6 12 f2 73 61 76 | 65 69 74 28 66 69 6c 65 |. ...sav|eit(file|
|00005f60| 24 29 0d 20 d0 2e f4 20 | 73 61 76 65 73 20 74 6f |$). ... |saves to|
|00005f70| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 6f 72 20 | destina|tion or |
|00005f80| 74 6f 20 3c 57 69 6d 70 | 24 53 63 72 61 70 3e 2e |to <Wimp|$Scrap>.|
|00005f90| 0d 20 da 24 f4 20 6f 6e | 6c 79 20 75 70 64 61 74 |. .$. on|ly updat|
|00005fa0| 65 20 66 69 6c 65 6e 61 | 6d 65 20 69 66 20 73 65 |e filena|me if se|
|00005fb0| 63 75 72 65 0d 20 e4 1e | e7 20 62 25 21 33 36 3e |cure. ..|. b%!36>|
|00005fc0| 2d 31 20 8c 20 24 66 6e | 61 6d 65 25 3d 66 69 6c |-1 . $fn|ame%=fil|
|00005fd0| 65 24 0d 20 ee 0e 62 25 | 21 31 32 3d 62 25 21 38 |e$. ..b%|!12=b%!8|
|00005fe0| 0d 20 f8 0b 62 25 21 31 | 36 3d 33 0d 21 02 0b 21 |. ..b%!1|6=3.!..!|
|00005ff0| 62 25 3d 32 35 36 0d 21 | 0c 2b c8 99 20 22 57 69 |b%=256.!|.+.. "Wi|
|00006000| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|00006010| 31 38 2c 62 25 2c 62 25 | 21 32 30 2c 62 25 21 32 |18,b%,b%|!20,b%!2|
|00006020| 34 0d 21 16 2e f4 20 73 | 65 6e 64 20 27 64 61 74 |4.!... s|end 'dat|
|00006030| 61 20 6c 6f 61 64 27 20 | 6d 65 73 73 61 67 65 20 |a load' |message |
|00006040| 74 6f 20 64 65 73 74 69 | 6e 61 74 69 6f 6e 2e 0d |to desti|nation..|
|00006050| 21 20 05 cd 0d 21 2a 05 | e1 0d 21 34 05 3a 0d 21 |! ...!*.|..!4.:.!|
|00006060| 3e 13 dd 20 f2 64 61 74 | 61 6c 6f 61 64 28 62 25 |>.. .dat|aload(b%|
|00006070| 29 0d 21 48 0b ea 20 66 | 69 6c 65 24 0d 21 52 10 |).!H.. f|ile$.!R.|
|00006080| 44 61 74 61 53 65 74 73 | 25 2b 3d 31 0d 21 5c 5f |DataSets|%+=1.!\_|
|00006090| e7 20 44 61 74 61 53 65 | 74 73 25 3e 31 30 20 8c |. DataSe|ts%>10 .|
|000060a0| 20 f2 6d 6f 61 6e 28 22 | 4e 6f 20 6d 6f 72 65 20 | .moan("|No more |
|000060b0| 74 68 61 6e 20 31 30 20 | 64 61 74 61 20 73 65 74 |than 10 |data set|
|000060c0| 73 20 61 6c 6c 6f 77 65 | 64 20 61 74 20 70 72 65 |s allowe|d at pre|
|000060d0| 73 65 6e 74 21 22 29 3a | 44 61 74 61 53 65 74 73 |sent!"):|DataSets|
|000060e0| 25 3d 31 30 3a e5 20 8d | 74 76 61 0d 21 66 1f e7 |%=10:. .|tva.!f..|
|000060f0| 20 62 25 21 34 30 3d 26 | 46 46 46 20 84 20 62 25 | b%!40=&|FFF . b%|
|00006100| 21 34 30 3d 26 32 46 46 | 20 8c 0d 21 70 17 66 69 |!40=&2FF| ..!p.fi|
|00006110| 6c 65 24 3d a4 67 6e 61 | 6d 65 28 62 25 2b 34 34 |le$=.gna|me(b%+44|
|00006120| 29 0d 21 7a 1f f2 6c 6f | 61 64 5f 64 61 74 61 28 |).!z..lo|ad_data(|
|00006130| 66 69 6c 65 24 2c 44 61 | 74 61 53 65 74 73 25 29 |file$,Da|taSets%)|
|00006140| 0d 21 84 35 e7 20 a4 6c | 65 61 66 28 66 69 6c 65 |.!.5. .l|eaf(file|
|00006150| 24 29 3d 22 53 63 72 61 | 70 46 69 6c 65 22 20 8c |$)="Scra|pFile" .|
|00006160| 20 2a 44 45 4c 45 54 45 | 20 3c 57 69 6d 70 24 53 | *DELETE| <Wimp$S|
|00006170| 63 72 61 70 3e 0d 21 8e | 22 f4 20 61 63 6b 6e 6f |crap>.!.|". ackno|
|00006180| 77 6c 65 64 67 65 20 72 | 65 63 65 69 70 74 20 6f |wledge r|eceipt o|
|00006190| 66 20 64 61 74 61 2e 0d | 21 98 0e 62 25 21 31 32 |f data..|!..b%!12|
|000061a0| 3d 62 25 21 38 0d 21 a2 | 0b 62 25 21 31 36 3d 34 |=b%!8.!.|.b%!16=4|
|000061b0| 0d 21 ac 24 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |.!.$.. "|Wimp_Sen|
|000061c0| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 62 25 2c |dMessage|",17,b%,|
|000061d0| 62 25 21 34 0d 21 b6 27 | e7 20 44 61 74 61 53 65 |b%!4.!.'|. DataSe|
|000061e0| 74 73 25 3d 31 20 8c 20 | f2 6f 70 65 6e 77 69 6e |ts%=1 . |.openwin|
|000061f0| 64 6f 77 28 53 63 61 6c | 65 25 29 0d 21 c0 05 cc |dow(Scal|e%).!...|
|00006200| 0d 21 ca 10 44 61 74 61 | 53 65 74 73 25 2d 3d 31 |.!..Data|Sets%-=1|
|00006210| 0d 21 d4 05 cd 0d 21 de | 05 e1 0d 21 e8 05 3a 0d |.!....!.|...!..:.|
|00006220| 21 f2 17 dd 20 a4 67 6e | 61 6d 65 28 70 74 72 25 |!... .gn|ame(ptr%|
|00006230| 29 3a ea 20 66 24 0d 21 | fc 21 c8 95 20 3f 70 74 |):. f$.!|.!.. ?pt|
|00006240| 72 25 3a 66 24 2b 3d bd | 3f 70 74 72 25 3a 70 74 |r%:f$+=.|?ptr%:pt|
|00006250| 72 25 2b 3d 31 3a ce 0d | 22 06 07 3d 66 24 0d 22 |r%+=1:..|"..=f$."|
|00006260| 10 05 3a 0d 22 1a 12 dd | 20 a4 6c 65 61 66 28 70 |..:."...| .leaf(p|
|00006270| 61 74 68 24 29 0d 22 24 | 30 c8 95 20 a7 70 61 74 |ath$)."$|0.. .pat|
|00006280| 68 24 2c 22 2e 22 29 3a | 70 61 74 68 24 3d c1 70 |h$,"."):|path$=.p|
|00006290| 61 74 68 24 2c a7 70 61 | 74 68 24 2c 22 2e 22 29 |ath$,.pa|th$,".")|
|000062a0| 2b 31 29 3a ce 0d 22 2e | 0a 3d 70 61 74 68 24 0d |+1):..".|.=path$.|
|000062b0| 22 38 05 3a 0d 22 42 14 | dd 20 f2 73 61 76 65 69 |"8.:."B.|. .savei|
|000062c0| 74 28 6e 61 6d 65 24 29 | 0d 22 4c 2a e7 20 a7 6e |t(name$)|."L*. .n|
|000062d0| 61 6d 65 24 2c 22 2e 22 | 29 20 84 20 6e 61 6d 65 |ame$,"."|) . name|
|000062e0| 24 3d 22 3c 57 69 6d 70 | 24 53 63 72 61 70 3e 22 |$="<Wimp|$Scrap>"|
|000062f0| 20 8c 0d 22 56 31 c8 99 | 20 22 4f 53 5f 46 69 6c | .."V1..| "OS_Fil|
|00006300| 65 22 2c 31 30 2c 6e 61 | 6d 65 24 2c 74 79 70 65 |e",10,na|me$,type|
|00006310| 25 2c 2c 64 62 6c 6b 25 | 2c 64 62 6c 6b 25 2b 70 |%,,dblk%|,dblk%+p|
|00006320| 74 72 25 0d 22 60 10 21 | 6d 65 6e 75 25 3d 66 69 |tr%."`.!|menu%=fi|
|00006330| 6c 65 25 0d 22 6a 20 c8 | 99 20 22 57 69 6d 70 5f |le%."j .|. "Wimp_|
|00006340| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 6d 65 |CloseWin|dow",,me|
|00006350| 6e 75 25 0d 22 74 47 cc | 20 24 62 6c 6f 63 6b 32 |nu%."tG.| $block2|
|00006360| 25 3d 22 20 20 20 20 54 | 6f 20 73 61 76 65 2c 20 |%="    T|o save, |
|00006370| 64 72 61 67 20 74 68 65 | 20 69 63 6f 6e 20 74 6f |drag the| icon to|
|00006380| 20 61 20 64 69 72 65 63 | 74 6f 72 79 20 76 69 65 | a direc|tory vie|
|00006390| 77 65 72 2e 22 2b bd 28 | 30 29 0d 22 7e 2a c8 99 |wer."+.(|0)."~*..|
|000063a0| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|000063b0| 6f 72 22 2c 62 6c 6f 63 | 6b 32 25 2c 31 2c 74 69 |or",bloc|k2%,1,ti|
|000063c0| 74 6c 65 24 0d 22 88 05 | cd 0d 22 92 05 e1 0d 22 |tle$."..|.."...."|
|000063d0| 9c 05 3a 0d 22 a6 0c dd | 20 f2 70 6f 70 75 70 0d |..:."...| .popup.|
|000063e0| 22 b0 11 62 73 74 61 72 | 74 25 3d 64 62 6c 6b 25 |"..bstar|t%=dblk%|
|000063f0| 0d 22 ba 14 62 65 6e 64 | 25 3d 64 62 6c 6b 25 2b |."..bend|%=dblk%+|
+--------+-------------------------+-------------------------+--------+--------+